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Vorwort 


Die Entwicklung von Pro- 
grammiersprachen begann 
vor mehr als 25 Jahren mit 
FORTRAN und ALGOL. Ziel 
war und ist die Schaffung ei- 
nes Formalismus, der gestat- 
tet, Abläufe von Datenverar- 
beitungsprozessen, sog. Al- 
gorithmen, auf einem höhe- 
ren Niveau der Abstraktion 
auszudrücken, als dies mit 
den Instruktionen spezifi- 
scher Computer möglich ist. 
Die praktische Anwendung 
solcher Formalismen, heute 
„höhere Programmierspra- 
che‘‘ genannt, hängt direkt 
von der Verfügbarkeit zuge- 
höriger automatischer Über- 
setzer, von Compilern ab, 
welche die Programme in die 
entsprechenden Folgen von 
Computer-Instruktionen um- 
wandeln. Solche Übersetzer 
sind selber komplizierte Pro- 
gramme, und waren bis vor 
kurzem Großrechnern vorbe- 
halten. 


Durch die rasante Entwick- 
lung der Halbleitertechnik und 
das Entstehen von Mikropro- 
zessoren mit beachtlicher 
Rechenleistung und Spei- 
chergröße sind Compiler 
auch auf Mikrorechnern ein- 
setzbar geworden. Dadurch 
erklärt sich die enorme Zu- 
nahme des Interesses an hö- 
heren Programmiersprachen. 


PASCAL wurde in den Jahren 
1968 bis 1970 entwickelt, und 
zwar sowohl die Sprache 
selbst wie auch ein zugehöri- 
ger Compiler. Die Sprache 


entstand aus längeren Stu- 
dien und nach intensivem 
Gebrauch von ALGOL. Von 
ALGOL 60 hat PASCAL die 
wesentliche Idee der Struktur 
von Anweisungen geerbt und 
diese auf Datenvereinbarun- 
gen ausgedehnt. Daraus er- 
gab sich ein wesentlich brei- 
teres Einsatzfeld im Vergleich 
zu ALGOL, das fast aus- 
schließlich den Numerikern 
vorbehalten blieb. Durch die 
Entwicklung von portablen 
Compilern wurde auch eine 
rasche Verbreitung auf viele 
Rechnertypen möglich, nicht 
zuletzt deshalb, weil der 
PASCAL-Compiler in PAS- 
CAL selbst formuliert wurde, 
und damit die Vorteile der 
Programmierung auf eine hö- 
here Abstraktionsebene in ei- 
nem Gebiet bewies, das bis 
dahin ausschließlich Domäne 
der Assembler-Codierung 
geblieben war 


Es wäre aber irrig zu glauben, 
daß mit dem Erlernen einer 
höheren Sprache im allge- 
meinen, und von PASCAL im 
Speziellen die Schwierigkei- 
ten des Programmierens be- 
seitigt würden. Das Konzipie- 
ren von komplexen Systemen 
ist an sich eine anspruchs- 
volle geistige Tätigkeit. Sie 
fordert vom Konstrukteur In- 
telligenz, logisches und exak- 
tes Denken, Erfindergeist und 
Erfahrung. Die Güte des ver- 
wendeten Werkzeugs kann 
aber dennoch den Erfolg ent- 
scheidend beeinflussen. Je- 
des Werkzeug bestimmt un- 


seren Arbeitsstil und setzt 
Grenzen. Der Schritt vom As- 
sembler-Code zur Program- 
miersprache ist für jeden Pro- 
grammierer von einschnei- 
dender Bedeutung; er be- 
ginnt mit dem Erlernen einer 
Sprache und deren Konzepte, 
und er ebnet den Weg zu jah- 
relanger Sammlung von Er- 
fahrung und zur Erarbeitung 
eines professionellen Pro- 
grammierstils. 


In den 10 Jahren seit dem er- 
sten Einsatz von PASCAL ist 
die Forschung im Gebiet der 
Programmiertechnik und ihrer 
Werkzeuge nicht stillgestan- 
den. Neue Erkenntnisse in 
der Programmierung von Sy- 
stemen mit mehreren Pro- 
zessoren (sog. Multipro- 
grammierung) und für die ge- 
eignete Strukturierung von 
großen Systemen (Modula- 
risierung) haben ihren Nie- 
derschlag in neueren Pro- 
grammiersprachen gefunden. 
Sie werden in Zukunft noch 
mehr an Bedeutung gewin- 
nen und PASCAL ergänzen. 


Man hat im jungen Gebiet der 
Computertechnik nie ausge- 
lernt. Was das Programmie- 
ren anbetrifft, ist aber sicher 
das Umdenken von Assem- 
bler-Codierung zur modernen 
Programmiersprache eine auf 
lange Sicht Iohnende Investi- 
tion unserer intellektuellen 
Arbeitskraft 


N. Wh 


Prof. Niklaus Wirth 
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Unverhoffter Nachruhm 


Als der große französische Denker und 
Gelehrte Blaise Pascal (1623-1662) eine 
der ersten funktionierenden mechani- 
schen Rechenmaschinen konstruierte, 
ahnte er sicher noch nicht, daß man der- 
gleichen rund 300 Jahre später ohne me- 
chanische Teile im Westentaschenfor- 
mat und für sehr wenig Geld bauen wür- 
de. Noch weniger aber ahnteeer, daß einst 
sein Name - auch wieder im Zusammen- 
hang mit der gebauten Rechenmaschine 
— als Name für eine höhere Program- 
miersprache gegen Ende des zwanzig- 
sten Jahrhunderts erneut zu Ehren kom- 
men würde. Unser Titelbild zeigt den Ge- 
lehrten nach einem Kupferstich von Ede- 
linck, der aus dem Archiv des Deutschen 
Museums zur Verfügung gestellt wurde; 
daneben ein typisches PASCAL-Listing. 


PASLAL 


Nachdem in den letzten Jahren die Not- 
wendigkeit zur Kostenreduzierung auf 
dem Gebiet der Mikroprozessor-Soft- 
ware immer größer wurde, hat sich ge- 
zeigt, daß ein geeignetes Mittel zur Lö- 
sung dieses Problems — zumindest aber 
zur Entschärfung der sich anbahnenden 
„Softwarekrise“ — die Nutzung höherer 
Programmiersprachen auch für Mikro- 
prozessoren ist. PASCAL hat sich aus 
bestimmten Gründen (die hier in diesem 
Heft erläutert werden) für diese Zwecke 
als besonders brauchbar erwiesen. 
Wegen des großen Interesses bei den 
Lesern wurden die bereits in der ELEK- 
TRONIK veröffentlichten Beiträge über 
PASCAL sorgfältig überarbeitet, ergänzt 
und mit weiteren bisher unveröffentlich- 
ten Arbeiten zu diesem Sonderheft zu- 
sammengefaßt. Damit soll allen, die sich 
in diese Programmiersprache einarbei- 
ten möchten oder müssen, also Studen- 
ten, Ingenieure und Techniker, die mit 
Mikrocomputern arbeiten, Hilfestellung 
beim Einstieg sowie nützliche Informatio- 
nen für die Praxis gegeben werden. 

Die Redaktion 
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Die höhere Programmiersprache PASCAL ist eine 
der wenigen in den letzten Jahren entwickelten Pro- 
grammiersprachen, die eine weltweite Anerkennung 
erlangte. Bei der Konzipierung von PASCAL waren 
besonders zwei Entwicklungsziele von Bedeutung: 
Die Sprache soll klar und natürlich definiert sein, 
und beim Erlernen der Programmiersprache soll die 
Technik der strukturierten Programmierung unter- 
stützt werden. Sie soll zugleich effizient und zuver- 
lässig auf heutigen Rechenanlagen implementierbar 
sein. Gerade diese Entwurfsziele kommen der ra- 
santen Entwicklung auf der Mikroprozessorebene 
entgegen. Hier sucht man seit Jahren nach über- 
sichtlichen, klar strukturierten Softwareerstel- 
lungsmethoden. Es zeichnet sich auch eindeutig, 
besonders bei den 16-Bit-Prozessoren, der Trend zu 
höheren Programmiersprachen ab. Zur Einführung 
sollen hier die wesentlichen Merkmale der Pro- 
grammiersprache PASCAL dargestellt werden. 


1 Geschichte 


Anfang der 70er Jahre kreierte Niklaus Wirth. Pro- 
fessor an der Technischen Hochschule in Zürich, die 
Programmiersprache PASCAL, die er nach dem fran- 
zösischen Philosoph und Mathematiker Blaise Pascal 
(1623...1662) benannte. Urs Ammann entwickelte 
dann, damals ebenfalls an der Technischen Hoch- 
schule in Zürich, zusammen mit Nikolaus Wirth und 
Mitarbeitern einen PASCAL-Compiler für die 
CDG 6000 von Control Data. Damit war der Startschuß 
für die Verbreitung dieser Programmiersprache gege- 
ben. Mittlerweilen ist PASCAL schon auf über 50 
Rechnern implementiert worden und setzt sich immer 
mehr als dominierende Programmiersprache durch. 
PASCAL läuft jetzt schon auf Mikroprozessorsvste- 
men wie z. B. 8080. 9900 sowie auch auf Großrechner- 
systemen wie z. B. auf dem superschnellen Rechner 
Cray-1. 

Es blieb natürlich nicht aus. daß bald Änderungen 
bzw. Erweiterungen an der Sprache vorgenommen 
wurden. So existieren nun verschiedene Versionen 
von PASCAL. Das Wirthsche PASCAL, welches in 1 
beschrieben ist, bezeichnet man als Standard-Version. 
Betrachtet man die Aktivitäten der letzten Zeit. so 
kann man feststellen. daß sich besonders das soge- 
nannte UCSD-PASCAL durchsetzt. (UCSD: University 
of California at San Diego). UCSD-PASCAL entstand 
unter Federführung von Professor Kenneth Bowles an 
der Universität in San Diego und hat einige Erweite- 
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rungen gegenüber dem Standard-PASCAT, wie z.B. 
die Datentypen String und Long Integer sowie freien 
Zugriffauf Komponenten innerhalb eines Files mittels 
der Funktion SEEK (siehe Abschnitt 5). 


2 Struktur von PASCAL 


Für PASCAL hat ALGOL 60 Pate gestanden und ist 
wie diese eine blockstrukturierte Programmierspra- 
che. Ein Programm besteht aus einem Programm- 
kopf. einem Deklarationsteil und aus einem Anwei- 
sungsteil. Deklarationsteil und Anweisungsteil bilden 
zusammen einen Block. Der Programmkopf beginnt 
mit dem Symbol „PROGRAM“, es folgen: der Pro- 
grammbezeichner (Name des Programmes. der auf die 
Ausführung des Programmes keinen Einfluß hat) und 
die Programmparameter. Dies sind in der Regel Files, 
welche außerhalb des Programmes existieren und das 
Programm mit der Umwelt verbinden. Die Ein- und 
Ausgabe erfolgt über die Standardfiles: Input, Output. 
Ein Block. der den Deklarationsteil und den Anwei- 
sungsteil umfaßt, kann in sechs Abschnitte unterteilt 
werden (Bild 1). Die ersten vier Deklarationen sind: 
Markenvereinbarungsteil, Konstantenvereinbarungs- 
teil, Tvpenvereinbarungsteil und Variablenvereinba- 
rungsteil. Der fünfte Abschnitt ist der Prozedur-/ 
Funktionsvereinbarungsteil. Der letzte Abschnitt ist 
der Anweisungsteil, der durch die Symbole „BEGIN® 
und „END' geklammert ist. Mehrere Anweisungen 
werden durch das Sonderzeichen „,;' voneinander ge- 
trennt. Ein Programm wird ausgeführt, indem der 
Block ausgeführt wird. Das heißt, der Deklarationsteil 
wird realisiert und dann wird der Anweisungsteil ab- 
gearbeitet. In ein Programm können Kommentare in 
der Form (*»Kommentar*) eingefügt werden. Diese 
Kommentare dienen der Lesbarkeit des Programmes 
und haben auf dessen Ablauf keinen Einfluß. 

Eine Prozedur- bzw. Funktionsvereinbarung führt 
selbst wieder einen Block mit Deklarationsteil und 
Anweisungsteil ein. 





PROGRAM Programmbezeichner 
(Programmparameter); > Programmkopf 
Markenvereinbarungsteil 
Konstantvereinbarungsteil 
Typvereinbarungsteil 
Variablenvereinbarungsteil 
Prozedur/Funktionsvereinbarungsteil 
Anweisungsteil 

Ein PASCAL-Programm hat die syntaktische Form: 
PROGRAM Programmbezeichner (Programmparameter); Block. 


Block 





Bild 1. Programmstruktur 


PROGRAM A 


BROCEDURE BI t..)% 


.o... 


BEGIN END; 


FUNCTION D (...)75 


BEGIN END; 





Level O0: A Level 1: B,D Level 2: C 


Bild 2. Blockschachtelung 


Es ergibt sich damit eine Blockschachtelungsmög- 
lichkeit wie z. B. nach Bild 2. Die in einem Block ver- 
einbarten Größen heißen lokal bezüglich dieses Blok- 
kes. Alle übrigen Größen dieses Blockes heißen global 
und müssen in einem übergeordneten Block verein- 
bart sein. Jede Vereinbarung für eine Größe hat nur in 
demjenigen Block Gültigkeit, in dem sie vorgenom- 
men wurde, und in jedem ihm untergeordneten Block. 


3 Datentypen 


Die Leistungsfähigkeit der Programmiersprache 
PASCAL resultiert vor allem auch aus der Vielfalt an 
Datentypen und daher, daß die Datenstrukturen nicht 
maschinen- sondern problemorientiert sind. Man un- 
terscheidet drei Gruppen von Datentypen: die einfa- 
chen Typen, die strukturierten Typen und die Pointer- 
typen. 


3.1 Einfache Typen 


Bei den einfachen Typen gibt es vier standardmäßig 
festgelegte Datentypen, dies sind: Integer (ganze Zah- 
len), Real (reelle Zahlen), Boolean (die logischen 
Werte True und False) und Char (ASCII-Zeichen). Sie 
bilden einen Grundbereich, dessen Wertebereich 
(eine Größe des Typs Boolean hat natürlich nur den 
Wertebereich True und False) maschinenabhängig ist. 
Zu den einfachen Typen zählen auch noch die Auf- 
zählungstypen, bei denen durch eine Typendefinition 
im Deklarationsteil der Wertebereich festgelegt (auf- 
gezählt) wird, z. B. Typ Richtung = (Süd. Nord, West, 
Ost). Andere Programmiersprachen wie ALGOL 60 
oder FORTRAN kennen solche Aufzählungstypen 
nicht. 


4 


Es lassen sich auf Unterbereichstypen definieren, 
deren Wertebereich auf eine Teilfolge des Gesamtwer- 
tebereiches eingeschränkt ist. z.B. Typ Monat = 
1...12. Damit bilden die Ziffern 1..12 den Wertebereich 
des Typs Monat. Diese Einschränkung trägt auch zur 
besseren Lesbarkeit des Programmes bei. 

3.2 Strukturierte Typen 

Strukturierte Typen werden definiert durch die An- 
gabe des Typs ihrer Komponenten und deren Struktu- 
rierungsmethoden. Die verschiedenen Strukturie- 
rungsmethoden unterscheiden sich bezüglich des Zu- 
griffes auf die Komponenten eines strukturierten 
Typs. Bei PASCAL hat man vier Strukturierungsme- 
thoden zur Verfügung, dies sind: Array-Struktur, Re- 
cord-Struktur, File-Struktur und Set-Struktur. 

Bei einer Array-Struktur sind alle Komponenten 
vom selben Typ. Man kann damit ein- oder mehrdi- 
mensionale Felder abspeichern. Der Zugriff auf die 
Komponenten eines Feldes geschieht über Indizes. 
Mit „U = ARRAY 1..10| of Real“ haben wir ein Feld U 
mit den zehn Komponenten U |1...U '10, des Typs 
Real definiert. Um auf die Komponenten zugreiten zu 
können. führt man eine Variable vom Typ Integer ein, 
die als Index dient. Bei PASCAL hat man auch die 
Möglichkeit, als Index die Buchstaben des Alphabetes 
zu verwenden. Mit „M = Array |,A‘..,2‘| of Integer“ 
wird ein Feld mit 26 Komponenten des Typs Integer 
definiert. Die Variable für den Index ist hier vom Typ 
Char. Bei einem Array gibt es über die Indizes einen 
Random-Access (freien Zugriff) auf die Komponenten 
des Feldes. 

Bei der Record-Struktur müssen die Komponenten 
nicht vom selben Typ sein. Ihnen werden Bezeichner 
zugeordnet, mit denen man auf sie zugreifen kann. Die 
Bezeichner der einzelnen Komponenten sind nicht 
berechenbar wie etwa die Indizes bei der Array-Struk- 
tur. PASCAL hat nicht den Datentyp Complex wie 
FORTRAN. Eine Abhilfe wird erreicht durch Einfüh- 
rung des Datentyps Complex als Record, z. B. „„Com- 
plex = Record Re, Im: Real End‘. Mit einer Varia- 
blen Z vom Typ Complex können wir dann auf die 
Komponenten Z.Re und Z.Im zugreifen (siehe Pro- 
grammbeispiel Bild 3a). Ein weiteres Beispiel eines 
Records: Zeit = Record Stunde: 1...24; Minute, Stun- 
de: 1...60 End. 

Eine Set-Struktur ist eine Mengendefinition, deren 
Wertebereich die Potenzmenge des Basistyps ist. Bei 
A = SET OF B mit dem Wertebereich von B, (B,, ..., 
B,_,). Dann ist der Wertebereich des Mengentvps A 
die Potenzmenge 2® des Typs B, er enthält die 2" 
Mengen: 

f‘] leere Menge, 





(B,) 1-elementige Menge, 
(B.: Bi) 2-elementige Menge, 
(By... B:) n-elementige Menge, 


wobei ein Wert B; höchstens einmal in einer Menge 
vorkommt. Mit der Variablenvereinbarung VAR X:Set 
of 1..3; kann die Variable X vom Typ Menge einen der 
Werte | |, [1], [2], [3], [1 2], |1, 3], |2, 3], |1, 2, 3] an- 











’ 


nehmen. Mit Variablen vom Set-Typ können die 
Mengenoperationen wie etwa Vereinigung und 
Durchschnitt realisiert werden. 

Die File-Struktur ist eine Sequenz von Komponen- 
ten desselben Typs. Der Zugriff auf die Komponenten 
des Files geschieht sequentiell lesend bzw. sequen- 
tiell schreibend. Ein direkter Zugriff (Random-Access) 
ist hier nicht möglich. Bei der Filedeklaration ist die 
Anzahl der Komponenten und damit die Länge des 
Files nicht festgelegt. Dies ist auch ein wesentlicher 
Unterschied zu einem Array. Die Vereinbarung einer 
Variablen mit File-Struktur, z.B. X = File of real 
schließt automatisch die Vereinbarung einer Buffer- 
Variablen X| des Typs Real ein. Die Buffer-Variable ist 


PROGRAM COMMUL (OUTPUT); 


(Multiplikation der komplexen Zahlen (1+j2)*(2-j1)*) 
TYPE COMPLEX = RECORD RE,‚IM : INTEGER END; 
VAR X,Y,Z : COMPLEX; 
BEGIN 
X.RE:=1; X.IM:=2; 
Y.RE:=2; Y.IM:=-1; 
Z.RE:=X.RE *Y.RE-X.IM *Y.IM; 
Z.IM:=X.RE*Y.IM+X.IM*Y.RE; 
WRITELN(’Produkt (1+j2)*(2-j1)"); 
WRITELN( Realteil = ’,Z.RE); 
WRITELN(’Imaginaerteil = ’,Z.IM); 
END. 


Bild 3a. Programmbeispiel Multiplikation komplexer Zahlen 


PROGRAMM ACKER (INPUT, OUTPUT); 


(*Die Ackermann-Funktion wird häufig für den Geschwindigkeits- 
vergleich von Rechenanlagen verwendet. Die Funktion ist stark re- 
kursiv und kann sehr lange Ausführungszeiten zur Folge haben. Die 
Definitionsgleichungen lauten: 

D F(OY)=Y+1; 

ID F(X,O) =F(X-1,1); 

II) F(X,Y) = F|X-1,F(X, Y-1)]; 

Die Ausführungszeit für die Berechnung von F(3, 4) beträgt auf der 
PASCAL-MICROENGINE nur zwei Sekunden. Der Funktionswert 
von F(3,4) ist 125.*) 


VAR DUMMY: CHAR; 


xX,Y: INTEGER; 
FUNCTION F (X,Y:INTEGER) : INTEGER; 
BEGIN 


IF X=O THEN F:=Y+1 
ELSE IF Y=O THEN F:=F(X-1,1) 
ELSE F:=F(X-1,F(X,Y-1)); 


END. 
BEGIN 
REPEAT 
WRITELN;WRITELN; 
WRITELN(’Ackermann-Funktion F(X, Y)’); 
WRITE(’X="); READLN(X); 
WRITE(’Y='); READLN(Y); 
WRITELN; 
WRITELN(’F(’,X,’,,Y,’)=’,F(X,Y)); 
WRITELN; - 
WRITE(ENDE? (J/N)); 
READ(DUMMY); 
UNTIL DUMMY='J'; 
END. 


Bild 3b. Programmbeispiel Ackermann-Funktion 


ein Fenster in der sequentiellen Anordnung des Files 
und enthält die jeweils aktuelle Komponente des 
Files. Für die Fileende-Kennung, wie für den Schreib- 
und den Lesevorgang existieren die folgenden Stan- 
dardprozeduren: 


Boolesche Funktion für die Fileende- 
Erkennung. WenndieBuffer-VariableX? 
hinter dem end of the file X steht, 
nimmt eof(x) den Wert True an. 


eof(x): 


Hiermit wird der File X für sequentielles 
Lesen eröffnet. Der Buffer-Variablen XT 
wird die erste Komponente zugewiesen 
und eof(x) bekommt den Wert „False“. 


reset(x): 


Mit dem Prozeduraufruf get(x) rückt der 
interne Zeiger vor auf die nächste 
Komponente des Files X und weist der 
Buffer-Variablen X] den neuen Wert zu. 
Damit kann der File X sequentiell gele- 
sen werden. 


get(x): 


Hiermit wird der File X für 
sequentielles Schreiben eröffnet. 

Die Buffer-Variable XT wird auf die 
erste Komponente des Files gesetzt 
und eof(x) bekommt den Wert „True“. 


rewrite(x): 


Nach einer Zuweisung im Programm 
an die Buffer-Variable XT, be- 

wirkt der Prozeduraufruf p(x), daß 
die aktuelle Komponente des Files X 
den Wert von X] erhält. Damit kann 
auf den File X sequentiell geschrie- 
ben werden. 


put(x): 


3.3 Pointer-Typen 


Eine im Deklarationsteil eines Blockes vereinbarte 
Variable ist eine statische Variable, da nach der Ver- 
einbarung sowohl der symbolische Name als auch der 
zugeordnete Speicherplatz während der Ausführung 
eines Blockes festliegt. Mit der Vereinbarung einer 
Pointervariablen P kann eine dynamische Variable 
des angegebenen referierenden Variablentyps einge- 
führt werden. Diese generierte Variable erhält den 
symbolischen Namen P? und wird mit dem Aufruf der 
Standardprozedur „NEW“ erzeugt. Bei jeder Verein- 
barung einer Pointervariablen P des referierenden Va- 
riablentyps T wird automatisch eine Variable PT des 
Typs T vereinbart. Ihr Wert ist der dynamische Wert, 
auf den P zeigt. Jede Pointervariable kann unabhängig 
von ihrem referierenden Typen den Wert „NIL“ an- 
nehmen. Dies besagt, daß die Pointervariable auf 
keine Variable verweist. Sei z. B. P eine Pointervaria- 
ble des referierenden Variablentyps Integer, so ist fol- 
gende Zuweisung an die generierte dynamische Va- 
riable möglich: 


VAR P: TInteger; 


NEWI{P); Pf: = 128; 
Pointerstrukturen sind ein effizientes Hilfsmittel, um 
komplexe und flexible Datenstrukturen aufzubauen. 
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4 Vorteile der Programmiersprache PASCAL 


Gerade von Leuten, die in der Vergangenheit mit 
anderen Programmiersprachen zur vollen Zufrieden- 
heit programmiert haben, kommt die Frage, welche 
Vorteile die neue Sprache dem Anwender bietet. Im 
Folgenden sind einige Argumente für PASCAL aufge- 
führt: 

@ Unterstützt das strukturierte Programmieren, 
weil ein Programm in viele abgeschlossene Einhei- 
ten zerlegt werden kann; die Programme statisch 
überprüft werden können; ein Programm gut lesbar 
ist und damit schnell verstanden werden um; weil 
Kontrollstrukturen existieren, usw. 

® Einfache und übersichtliche Sprache, 
weil nicht alle sinnvollen, sondern alle notwendi- 
gen Sprachkonstruktionen verwendet wurden. Da- 
mit ist die Komplexität und zum Teil Unübersicht- 
lichkeit von PL/1 und ALGOL 68 vermieden wor- 
den. 

@ Klare, exakte und vollständige Sprachdefinition 
Zur syntaktischen Beschreibung von PASCAL ver- 
wendet man Syntaxdiagramme wie in Bild 4 für ei- 
nen Block. 

@ Trennung von Vereinbarungs- und Anweisungsteil 
Alle im Anweisungsteil verwendeten Objekte müs- 
sen im Vereinbarungsteil vereinbart sein; der An- 
weisungsteil ist mit BEGIN und END geklammert. 

@ Problemgerechte Beschreibung von Datentypen 
Problemadäquate Datenbeschreibung, im Gegen- 
satz zu ALGOL 60 z.B. 

PASCAL 

Feld = ARRAY |1..5| OF INTEGER; 


BLOCK 











Bild 4. Syntaxdiagramm 
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ALGOL 60 
INTEGER ARRAY Feld 1..5 


@ Problemangepaßte Beschreibung von Datentypen 
Möglichkeit, durch die Typenvereinbarung eigene 
Datentypen zu definieren. Unterbereichstypen er- 
höhen die Lesbarkeit eines Programmes. 

@ Kontrollstrukturen 
Blockzusammenfassung BEGIN...END; Auswahl 
IF... THEN...ELSE, CASE...OF...END; Wiederholung 
WHILE...DO, REPEAT...UNTIL, FOR...TO...DO; 

® Rekursiver Aufruf von Prozeduren und Funktionen 
Die Möglichkeit, daß innerhalb einer Prozedur oder 
Funktion diese selbst wieder aufgerufen werden 
kann (siehe Programmbeispiel Ackermann-Funk- 
tion Bild 3b). 


5 Unterschiede zwischen Standard-PASCAL 
und UCSD-PASCAL 


Wie eingangs schon erwähnt, haben sich bei der 
Programmiersprache PASCAL bereits verschiedene 
Dialekte gebildet. Dies wurde auch gerade dadurch ge- 
fördert, weil einige, für eine moderne Programmier- 
sprache sogar unabdingbare Merkmale im Standard- 
PASCAL fehlen. Das UCSD-PASCAL, welches auf der 
„PASCAL P-Code Maschine‘ der Spezial Electronic, 
München, implementiert ist, ist mit einer Reihe von 
Erweiterungen bzw. Unterschieden gegenüber dem 
Standard-PASCAL ausgestattet. Diese Erweiterungen 
geben dem Softwareentwickler mehr Möglichkeiten, 
und er erreicht damit eine schnellere und effektivere 
Lösung seines Softwarevorhabens. Die nachfolgende 
Auflistung soll diejenigen, die sich bereits mit Einzel- 

heiten der Programmiersprache PAS- 
CAL beschäftigt haben, mit den Unter- 
schieden vertraut machen. 


5.1 Case-Statement 


Die Case-Anweisung ist eine Fallun- 
terscheidung, bei der mittels eines Se- 
lektors verschiedene Anweisungen 
aufgelöst werden können. Kommt der 
Wert des Selektors nicht in der Fallun- 
terscheidungsliste vor, so führt dies 
beim Standard-PASCAL zu einem un- 
liebsamen Abbruch des Programmes. 
Beim UCSD-PASCAL führt diese Situa- 
tion nicht zum Abbruch, es wird das 
nächste Statement nach dem zum 
Case-Statement gehörendem End aus- 
geführt. 


5.2 Dynamic Memory Allocation 


In Standard-PASCAL gibt es die Pro- 
zedur DISPOSE (P). Damit wird der 
Speicherplatz im Heap, der mit NEW (P) 
für die dynamische Variable PT ange- 
legt wurde, wieder frei. UCSD-PASCAL 
hat nicht die Prozedur DISPOSE, an de- 
ren Stelle gibt es die Prozeduren MARK 
UND RELEAS, die eine optimale Heap- 
verwaltung ermöglichen. 


5.3 Comments 

Der UCSD-Compiler registriert ein $-Zeichen direkt 
nach dem Kommentarzeichen als eine spezielle An- 
weisung an den Compiler. Beispielsweise ist («$L + 
Console: ») eine Anweisung an den Compiler, ein 
Compilerlisting zu erstellen und dies auf der Console 
auszugeben. (* $ G-*) heißt für den Compiler, daß die 
Sprunganweisung GOTO im Programm nicht erlaubt 
ist. In Standard-PASCAL sind solche Compiler-Op- 
tionen nicht möglich. 


5.4 Segment Procedures 


UCSD-PASCAL ermöglicht die Segmentierung von 
Programmen. Prozeduren und Funktionen werden 
hierbei nur dann in den Arbeitsspeicher geholt, wenn 
sie vom Programm aufgerufen werden. Standard- 
PASCAL hat diese Möglichkeit nicht. 


5.5 Interactive Files 

UCSD-PASCAL erweitert das Standard-PASCAL im 
Bereich des Filehandlings um den Filetyp INTERAC- 
TIVE. Dieser Typ gibt dem Programmierer mehr Fle- 
xibilität bei der Input-/Outputprogrammierung mit 
interaktiven Peripheriegeräten. Im UCSD-PASCAL 
sind die beiden Standard-Files INPUT und OUTPUT 
vom Typ INTERACTIVE. 


5.6 Random Access Disk Files 


Standard-PASCAL hat nicht die Möglichkeit des 
wahlfreien Zugriffes auf Records in einem Disk-File. 
UCSD-PASCAL hat hierfür die Prozedur SEEK, mit 
der der Wert des Filepointers auf eine bestimmte Re- 
cordnummer gesetzt werden kann. 


5.7 GOTO and EXIT 


Im Standard-PASCAL ist auch der Sprung auf eine 
Marke außerhalb des Blockes, in welchem das 
GOTO-Statement steht, möglich. Dies kann zu einer 
unübersichtlichen Programmierung führen und 
wurde daher im UCSD-PASCAL nicht übernommen. 
Es sind nur Sprünge innerhalb eines Blockes möglich. 
Ein Block kann mit der Prozedur EXIT verlassen wer- 
den. Dies ist identisch mit einem GOTO zu einer 
Marke nach dem letzten Statement des betreffenden 
Blockes. 


5.8 Program Header 

Im Standard-PASCAL beinhaltet der Programmkopf 
eine Liste von Files in der Form von Parametern. 
UCSD-PASCAL akzeptiert zwar diesen Programm- 
kopf, die Angabe der Filenamen ist jedoch nicht erfor- 
derlich. 


5.9 String Variables 


UCSD-PASCAL hat den Typ STRING für das Arbei- 
ten mit einer Sequenz von Charaktern vorgesehen. 
Eine Stringvariable ist identisch mit: Packed Array 
\1..obere Grenze) of CHAR inklusive einem Längen- 
byte. Stringvariable im UCSD-PASCAL werden unter- 
stützt durch die Prozeduren INSERT und DELETE und 
durch die Funktionen LENGTH, POS, COPY und 
CONCAT. Jeder Programmierer wird diese Erweite- 
rungen des UCSD-PASCAL besonders zu schätzen 


wissen. Im Standard-PASCAL existiert der Typ 
STRING nicht. 


5.10 Sets 

UCSD-PASCAL limitiert die Anzahl der Elemente 
einer Variablen des Typs SET auf höchstens 4080. An- 
dere PASCAL-Implementationen limitieren die Zahl 
der Elemente auf 64 oder noch weniger. Standard- 
PASCAL macht keine Aussage, wieviele Elemente ein 
SET haben darf. 


5.11 Long Integers 

UCSD-PASCAL ermöglicht das Arbeiten mit Inte- 
gergrößen von bis zu 36 Dezimalstellen. Der Pro- 
grammierer kann die Anzahl der benötigten Dezimal- 
stellen einer Integervariablen im Deklarationsteil an- 
geben. 


5.12 Separately Compiled Units 

UCSD-PASCAL ermöglicht die separate Compilie- 
rung einer Einheit von Prozeduren, Funktionen und 
den dazugehörigen Deklarationen in eine UNIT. Diese 
UNIT kann dann von anderen Programmen benutzt 
werden, ohne sie wieder compilieren zu müssen. 
Standard-PASCAL hat nichts entsprechendes zu bie- 
ten. 

Diese Erweiterungen bzw. Änderungen machen 
PASCAL noch leistungsfähiger und bilden auch die 
Voraussetzung für einen breiten industriellen Einsatz 
dieser neuen Programmiersprache. Es ist natürlich 
nicht wünschenswert, wenn sich zu viele Dialekte 
bilden. Momentan bemüht man sich noch auf interna- 
tionaler Ebene um eine Standardisierung von PAS- 
CAL. Bis jetzt kann aber noch nicht gesagt werden, 
welche bzw. wieviele Erweiterungen von diesem 
Gremium in den neuen Standard aufgenommen und 
abgesegnet werden. 
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mit anderen Programmiersprachen 


Seit einiger Zeit ist die höhere Programmiersprache 
PASCAL bei vielen Mikro- und Minicomputeranwen- 
dern im Gespräch. Man verspricht sich von ihrem 
Einsatz eine Kostensenkung bei der bisher überpro- 
portionalen teuren Software. 

Ein großes amerikanisches Halbleiter-Unternehmen 
hat sich schon frühzeitig mit PASCAL befaßt und 
sich entschieden, sie als Standard-Programmier- 
sprache für den internen Gebrauch zu benutzen. 
Aufgrund dieser Erfahrungen versucht der Autor 
diese Sprache mit anderen zu vergleichen. 


Die stark zunehmende Tendenz, Hardware-Logik 
durch programmierbare Mikroprozessoren zu erset- 
zen, zwingt die Elektronikentwickler, nach Wegen zu 
suchen, wie man kostengünstiger Programme schrei- 
ben, warten und überarbeiten kann. Programmierer 
waren schon immer der Meinung, daß die Verwen- 
dung einer höheren Programmiersprache der effektiv- 
ste Weg sei, die Softwarekosten zu senken, was beson- 
ders auf eine Sprache wie PASCAL zutrifft, die eine 
sog. „lTop-down‘-Struktur bei der Programmerstel- 
lung ermöglicht. 

Wenn ein Programmierer vergleicht zwischen dem 
Schreiben in PASCAL oder in der Assemblersprache 
eines Mikroprozessors, so ergibt sich, daß die Pro- 
grammiereffizienz um den Faktor 2,5...3 besser ist und 
die Zeit für die Programmentwicklung und -wartung 
um den Faktor 2 verringert wird. 

Weil man keine allgemeine Aussage darüber ma- 
chen kann, was an PASCAL besser ist als bei anderen 
höheren Programmiersprachen, ist in Bild 1 der Ver- 
such unternommen worden, fünf Sprachen in ihren 
wichtigsten Kriterien zu vergleichen. Daraus und der 
ausführlichen Übersicht in Tabelle 1 ergibt sich, daß 
PASCAL ganz klar die Sprache ist, die man wählen 
sollte, wenn es auf Kostenminimierung für die Soft- 
ware während ihrer gesamten Nutzungsdauer an- 
kommt. 


Der Schritt vom Gebrauch der Maschinensprache zu 
PASCAL erhöht die Produktivität aus drei Gründen: 


1. Jeder Befehl in der höheren Sprache erzeugt meh- 
rere Maschinenbefehle. Dadurch kann der Pro- 
grammierer das Problem auf einer abstrakten Ebene 
lösen und muß sich nicht mit der Hardwarestruktur 
der Maschine beschäftigen. 


2. Eine strukturierte Sprache wie PASCAL erlaubt, 
Probleme so zu lösen, wie der natürliche Denkpro- 
zeß verläuft - von der Gesamtstruktur zur Teilfunk- 
tion („Top down‘). Daraus ergeben sich weniger 
Fehler und falls solche auftreten, sind sie einfacher 
zu finden. 


3. Weil PASCAL leichter lesbar ist, sind Änderungen 
ohne große Schwierigkeiten leicht durchzuführen. 


Anders als Hardware, die sich nur mühsam verän- 
dern läßt, wird Software kontinuierlich modifiziert, 
um sie den Anforderungen des Benutzers anzupassen. 
Deshalb ist es wichtig, nicht nur die Entwicklungsko- 
sten, sondern auch die Änderungskosten möglichst 
gering zu halten. Bei Anwendungen, die in hohem 
Maße den Dialog Mensch-Maschine erfordern, oder 
bei denen die Problemstellung sich laufend ändert, 
wie z. B. bei der Sammlung von Management-Daten, 
können die Kosten für die Wartung jährlich über 20 % 
der Entwicklungskosten liegen. 

Die Benutzung von PASCAL hatähnlich wie andere 
höhere Programmiersprachen nicht nur Vorteile: 


@ Ein PASCAL-Programm erfordert, wenn es compi- 
liert wird, etwa doppelt soviel Speicherplatz wie 
ein Programm in der Maschinensprache. 

@ Das in PASCAL geschriebene Programm wird nicht 
so schnell ausgeführt wie ein Maschinenprogramm. 
In Zukunft wird zusätzlicher Speicherplatz jedoch 

nicht mehr so teuer wie heute sein. Nach der bisheri- 

gen Erfahrung sind die Preise für Speicherbausteine 
alle 3 Jahre um 50 % gesunken. 


Heute können PASCAL und andere höhere Pro- 
grammiersprachen auf Mikroprozessorsystemen lau- 
fen (nicht übersetzt werden), die nicht mehr als 8 
KByte Speicherplatz besitzen. 


Mikroprozessoren mit 8 KByte werden heute als 
mittlere Systeme betrachtet. Da es die technische Ent- 
wicklung in Zukunft erlauben wird, größere Spei- 
cherkapazitäten auf ein Chip zu integrieren, wird si- 
cherlich in Zukunft PASCAL auch für kleinere Sy- 
steme nichts Ungewöhnliches sein. 


Neuartige Mikroprozessoren, Mikrocomputer, Pe- 
ripheriebausteine und Speicherchips ersetzen immer 
wieder bisher bekannte Typen. Die modernen Bauteile 
mit höherer Kosteneffektivität erfordern wegen archi- 
tektonischer Veränderung, besonders vom Befehlssatz 
her, eine neue Software. Jeder neue Prozessortyp muß 
mit Software zur Entwicklung unterstützt werden 
(Assembler, Utilities, Betriebssystem), wodurch der 
Programmierer immer wieder gezwungen ist, neue 
Assemblersprachen-Mnemonics und Programmier- 
techniken zu lernen. Die Schwierigkeiten, die sich für 
den Softwarebereich daraus ergeben, könnten erheb- 
lich verringert werden, wenn man eine maschi- 
nenunabhängige, transportable Sprache verwenden 
würde -.d. h. eine Sprache und das dazugehörige Un- 
terstützungspaket, das für verschiedene Architektu- 
ren geeignet ist, auch für solche, die noch entwickelt 
werden. 

Die Originalform von PASCAL, die Niklaus Wirth 
entwickelt hat, besitzt bereits die meisten Sprachei- 
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PASCAL FORTRAN BASIC PL/M COBOL 


Bild 1. Die fünf Sprachen aus Tabelle 1 gewichtet nach der Wertig- 
keit der vier Phasen der Software-Lebensdauer. Die erste Phase (A) 
benötigt keine Software 


genschaften, die für leichte Transportabilität sowie 
Wartbarkeit notwendig sind. 

Hauptmerkmal ist die Flexibilität, Daten zu be- 
schreiben. Der Programmierer kann freizügig Daten- 
typen definieren und der Compiler legt dann seine ei- 
gene variable Datenzuweisung fest. Dadurch wird 
verhindert, daß der Programmierer Tricks anwendet, 
um Datentypen festzulegen, wie das bei FORTRAN oft 
getan wird, um die Möglichkeit zur Textverarbeitung 
zu erhalten. Solche Tricks machen die Transportabili- 
tät unmöglich. 

Ein weiterer Grund für die Transportabilität, der 
auch die Erstellung von Reentrant-Code unterstützt, 
ist, daß es im Standard-PASCAL keinen einfachen 
Weg gibt, den Run-Time-Codebereich zu adressieren. 
Anders gesagt: es ist schwierig, einen Code zu schrei- 
ben, der sich selbst ändert. Reentrant-Code gestattet 
mehrfache Abarbeitung, die gleichzeitig von einer 
Kopie des Codes aus erfolgt. Diese Eigenschaft ist 
wichtig für den Entwurf von effizienten Echtzeit-Sy- 
stemen mit parallel ablaufenden Operationen. Der 
„Mikroprozessor PASCAL“-Compiler von Texas In- 
struments erzeugt Reentrant-Code. Die Mikroprozes- 
sor-PASCAL-Executive-Library unterstützt darüber 
hinaus die Entwicklung von Reentrant-, Concurrent- 
Programmen, deshalb müssen die Routinen nicht ko- 
piert werden, wenn sie für verschiedene Tasks gleich- 
zeitig gebraucht werden. 

Die gut definierte und klare E/A-Struktur erleichtert 
ebenfalls das Problem, ein transportables Software-In- 
terface zu entwerfen, mit dem auch nach hardwaresei- 
tigen Änderungen weiter gearbeitet werden kann. 
Beim Mikroprozessor-PASCAL wird allerdings etwas 
von der klaren Struktur geopfert, um eine bessere 
E/A-Flexibilitätt zu erreichen. Texas Instruments 
machte einige Modifikationen an PASCAL, aber die 
allgemeinen Grundsätze sind bei der Originalversion 
von N. Wirth und der Version von TI gleich. 


Mischung von PASCAL und Assembler-Code 


Die Assemblersprache ist eigentlich der beste Weg, 
um Programme, die schnell ausgeführt werden müs- 
sen, optimal auszuarbeiten, obwohl man keine Wart- 
barkeit und Transportabilität wie in einem Programm 
in höherer Sprache hat. Das Mikroprozessor-PAS- 
CAL-System enthält einen Reverse-Assembler, mit 
dem man Routinen, die in PASCAL geschrieben sind, 
in die Assemblersprache umsetzen und für zeitkriti- 
sche Anwendung optimieren kann. 


Warum schreibt man dann diese Programmab- 
schnitte nicht direkt in der Assemblersprache? 

Man hat herausgefunden, daß die anfängliche Co- 
dierung und Fehlerbeseitigung in PASCAL mit nach- 
träglicher „Optimierung von Hand‘ in Assembler- 
sprache, wo notwendig, signifikante Vorteile hat: 


@ Beibehaltung der Möglichkeit des „Top-Down-De- 
sign‘‘, 

® schnellerer Entwurf von Prototypen, 

@ zuverlässiger endgültiger Code. 


Der Prototypen-Entwurf ist einfacher, weil Algo- 
rithmen leichter in PASCAL als in Assembler-Code zu 
schreiben sind. 


PASCAL und die anderen höheren 
Programmiersprachen 


PASCAL mit anderen höheren Programmierspra- 
chen vergleichen, wie es in Tabelle 1 dargestellt ist, 
kann man eigentlich nur, wenn man Programmierex- 
perten befragt, die alle Sprachen beherrschen. 

Zu wissen, welche Sprache für eine bestimmte Auf- 
gabe am besten geeignet ist, ist dann notwendig, wenn 
man von der Maschinensprache auf eine höhere Pro- 
grammiersprache oder von einer solchen auf eine an- 
dere übergeht. Dieser Übergang kann zu großen Pro- 
blemen führen, wenn ein grundsätzliches Redesign 
eines Softwareprodukts in Erwägung gezogen wird, 
oder wenn der Programmierer eine neue Sprache ler- 
nen muß. Deshalb sollten die Fakten, die in Tabelle 1 
dargestellt sind, sorgfältig abgewogen werden: 


@ Wie an Punkt 3 zu ersehen ist, ist PASCAL nicht so 
einfach erlernbar wie z. B. BASIC, das allgemein als 
die Sprache gilt, die man besonders leicht lernen 
kann. 


® Der Schwierigkeitsgrad beim Erlernen einer zwei- 
ten Programmiersprache (Punkt 4 und 5) hängt in 
gewissem Grad von der Sprache ab, die man zuerst 
gelernt hat. Sequentielle Sprachen wie BASIC oder 
FORTRAN erfordern einen anderen Denkprozeß als 
eine blockstrukturierte Sprache wie PASCAL. Die- 
ser fundamentale Unterschied macht den Übergang 
von einem Sprachtyp zu einem anderen relativ 
schwer. 


Bevor man die anderen Faktoren der Tabelle unter- 
sucht, muß man wissen, wie wichtig sie jeweils für 
jede Phase der gesamten Software-Lebensdauer sind. 
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Diese Phasen sind: 

A. Problemanalvyse, 

B. Lernen die Programmiersprache anzuwenden, 

C. Realisierung des Entwurfs, 

D. Wartung der Software, 

E. Wiederverwendung der Software nach Verände- 
rungen oder Ersatz der Hardware. 


Welche Wertigkeit die einzelnen Phasen haben, 
geht aus Tabelle 2 hervor. Wenn man die Faktoren in 
Tabelle 1 damit gewichtet, ergibt sich das Balkendia- 
gramm in Bild 1, die dann ein Maß für die „Güte“ ei- 
ner höheren Programmiersprache über ihre gesamte 
Lebensdauer darstellt. 

Noch ein Wort zum Ursprung der Werte in der Ta- 
belle, die ja eigentlich subjektive Abschätzungen sind: 
Der Autor sammelte die Daten in Tabelle 1, indem er 
etwa zwei Dutzend Programmierexperten befragte. 
Dabei wurden die Faktoren der Tabelle 1 drei ver- 
schiedenen Programmiergruppen vorgelegt: Speziali- 
sten für kommerzielle Datenverarbeitung, Speziali- 
sten für wissenschaftliche Programmierung und sol- 
chen für Echtzeitverarbeitung. Die Feststellung des 
Ergebnisses erfolgte so, daß für jede Sprache eine Be- 
wertung aller 16 Faktoren abgegeben werden mußte. 
Nach teilweise langen Diskussionen wurden die Er- 
gebnisse der drei Gruppen zur Tabelle 1 verarbeitet. 
Danach machte der Autor aufgrund seiner eigenen Er- 
fahrung eine Tabelle mit Gewichtungsfaktoren (Tabel- 
le 2). Softwareexperten, die andere Lebensabschnitte 
wählen, können dort auch ihre eigenen, für sie gülti- 
gen Faktoren einsetzen. 

In der Analysephase (A) werden im wesentlichen 
die Hardware-Interface-Spezifikationen festgelegt 
sowie das Flußdiagramm festgelegt. Außerdem muß 
eine Softwarestruktur entwickelt werden, die die er- 
forderliche Hardware unterstützt. Wenn völlig neuar- 
tige Softwareprodukte entwickelt werden sollen, 
sollte das zu einer natürlichen Auswahl der am besten 
geeigneten Programmiersprache für die Softwareent- 
wicklung führen, ähnlich der Auswahl der Hardware- 
komponenten. Die Analysephase erfordert selbst noch 
keine Softwaresprache. 

Die zweite Phase, das Lernen (B), wurde bereits be- 
sprochen. In der dritten Phase, der Realisierung des 
Entwurfs (C), wird eine Sprache erforderlich, die das 
Top-Down-Design unterstützt. Diese Sprache sollte 
eine modulare oder strukturierte Annäherung an das 
Gesamtsystem unterstützen, d. h. beim Allgemeinen 
beginnend (top) und dann weiter zum Speziellen 
übergehend (down). 

PASCAL stellt wegen der Blockstruktur das geeig- 
nete Mittel zur strukturierten Programmierung dar. Im 
Gegensatz dazu kann FORTRAN nicht ohne „GO- 
TO‘'-Programmsprünge geschrieben werden, die die 
Top-Down-Entwicklung verhindern. PASCAL hat 
auch „GO-TO‘“-Befehle, aber die Sprache ist so aufge- 
baut, daß man diese nicht benutzen muß. 

Die vierte Phase im Lebenszyklus der Software, die 
Wartung (D), beginnt mit der Vervollständigung des 
ursprünglichen Entwurfs und erstreckt sich über meh- 
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rere Jahre. Softwarefehler nehmen normalerweise 
exponentiell mit der Zeit ab. 

Die Korrektur von Fehlern oder das Einfügen von 
Softwareerweiterungen wird oft von Programmierern 
vorgenommen, die nicht die ursprünglichen Entwick- 
ler sind. Deshalb müssen Programme leicht verständ- 


Tabelle 1. Subjektiver Vergleich von PASCAL mit vier an- 
deren höheren Programmiersprachen 





1. Anwendbarkeit 

auf große 

Programme 10 6 3 8 7 
2. Anwendbarkeit 

auf kleinere 


Programme 8 7 10 8 3 
3. Lernbarkeit als 
erste Sprache 6 8 10 7 4 


4. Lernbarkeit als 

zweite Sprache, 

wenn die erste 

blockstruk- 

turiert war 8 6 10 9 3 
5. Lernbarkeit als 

zweite Sprache, 

wenn die erste 


nicht block- 
strukturiert war 5 9 10 6 4 

6. Top-Down- 
Design 10 5 3 7 4 


7. Unterstützung 
der strukturierten 
Programmierung 10 4 4 10 6 
8. Schreibbarkeit 
von langen 
Programmen 
9. Erzeugung von 
effizientem Code 8 7 6 10 7 
10. Flexibilität 
von Datentypen 10 5 1 6 7 
11. Überprüfung 
durch den 
Compiler auf 
logische Fehler 10 5 4 6 7 
12. Gesteuerter 
Datenzugriff 10 6 1 3 4 
13. Unterstützung 
effizienter 
Problemlösung 10 6 1 8 7 
14. Lesbarkeit 
bei großen 
Programmen 10 4 2 8 8 
15. Transpor- 
tabilität 10 7 4 2 g 
16. Effektivität : 
von Standards 3 10 4 3 10 3 


10 5 3 9 5 


SHähser 


Re Re 





Tabelle 2. Die Punkte, die in Tabelle 1 aufgeführt sind, las- 
sen sich bestimmten Lebensabschnitten der Software 
zuordnen 











lich sein. Tatsächlich wirken sich viele Eigenschaften 
einer guten Programmiersprache, die vorteilhaft für 
die Realisierungsphase waren, auch positiv auf die 
Wartung aus. Lesbarkeit steht dabei an der Spitze der 
Liste, aber auch Top-Down-Design (6), Unterstützung 
der strukturierten Programmierung (7), Schreibbar- 
keit (8), Flexibilität der Datentypen (10), Compiler- 
Verträglichkeitsüberprüfungen (11) und die Steue- 
rung des Datenzugriffs (12) sind ebenfalls wichtig. Der 
Einfachheit halber wurde jedem Faktor die gleiche 
Gewichtung gegeben (Tabelle 2). 

Während der Nutzungsdauer eines Produkts kommt 
der Zeitpunkt, an dem alte Hardware durch neue, lei- 
stungsfähigere ersetzt werden muß. Diese fünfte 
Phase (E) kann ein völliges Überarbeiten von Hard- 
und Software bedeuten. Ideal wäre es natürlich, wenn 
man die Software ohne oder nur mit geringen Ände- 
rungen für die neue Hardware verwenden könnte. Ein 
maschinenunabhängiger Quellencode wäre die Lö- 
sung. Zur Zeit gibt es jedoch keine echte maschinen- 
unabhängige Programmiersprache, obwohl PASCAL 
unter diesem Aspekt entwickelt wurde. Das Konzept, 
nach dem N. Wirth bei der Entwicklung von PASCAL 
vorging, war, die Sprache für eine theoretische Com- 
puterarchitektur, die von den meisten Computern als 
Subset realisiert werden kann, zu entwickeln. 

Aber das Maß, wie transportabel eine Programmier- 
sprache ist, wird auch durch den Standardisierungs- 
grad in der Industrie bestimmt. Während die Standar- 
disierung weitgehend von derReife einer Sprache und 
ihrer Aufnahme durch den Anwender bestimmt wird, 
kann sie auch durch die ursprüngliche Definition be- 
hindert werden. Wie man aus Tabelle 1 entnehmen 
kann, besitzt PASCAL eine hohe theoretische Trans- 
portabilität (15) aber hat zur Zeit einen geringen Stan- 
dardisierungsgrad (16). Dies wird sich hoffentlich in 
naher Zukunft ändern, da ernsthafte Bestrebungen zur 
Formulierung eines Standards unternommen werden. 


Vergleich der einzelnen Punkte 


Viele der einzelnen Punkte in Tabelle 1 betreffen 
unterschiedliche Phasen in der Nutzungsdauer, und 
so scheint es sinnvoll, diese Punkte einzeln zu analy- 
sieren. 


Große Programme leicht zu lesen und zu schreiben, 
(Punkt 1,8 und 14) sind wichtige Eigenschaften in der 
Entwicklungsphase. Während die meisten Sprachen 
für kleine Programme (Punkt 2) geeignet sind, bieten 
doch nur wenige Lesbarkeit und Schreibbarkeit bei 
größeren Programmen. Die grundlegende Idee der 
Lesbarkeit ist, daß die Befehle beim Lesen leicht zu 
verstehen sind und daß die Aufgabenstellung des 
Programms leicht erkennbar ist. Die Schreibbarkeit 
hängt von der Klarheit und Kürze ab, mit der ein Pro- 
gramm aufgebaut wird. 


Die Effizienz des vom Compiler erzeugten Codes 
(Punkt 9) ist der Punkt, der von Programmierern am 
meisten beim Vergleich von Sprachen diskutiert wird. 
Obwohl es stimmt, daß höhere Programmiersprachen 
im Gegensatz zur Assemblersprache ‚„uneffizienten‘“ 
Code produzieren, gilt das heute nicht mehr als wich- 


tiger Faktor für Anwendungen mit geringen Stückzah- 
len, bei denen die Softwarekosten vergleichsweise 
hoch sind. Wie aus Tabelle 1 zu erkennen ist, ist PL/M 
bezüglich der Speichereffizienz etwas besser als PAS- 
CAL. Ein Grund dafür liegt in der Maschinenabhän- 
gigkeit von PL/M. 

Es gibt z. B. PL/M-Codesequenzen, die es einem er- 
lauben, zu einer absoluten Speicheradresse zu sprin- 
gen. Diese Möglichkeit ist bei Mikroprozessor-PAS- 
CAL verboten. 

Gerade diese direkte Adressierungsmöglichkeit von 
PL/M bewirkt den geringen Grad der Wartbarkeit und 
Transportabilität. Diese Art der Adressierung verur- 
sacht trotz gewisser Vorteile bei der Entwicklung 
später bei der Wartung große Schwierigkeiten, wenn 
sich die Länge des Programms ändert und es später 
notwendig wird, neue Speicheradressen festzulegen. 


Eine weitere Praxis bei höheren Programmierspra- 
chen mit ähnlichen Auswirkungen ist der Gebrauch 
von Pointer-(indirekten) Variablen, um absolute Spei- 
cheradressen festzulegen. Diese Art der Programmie- 
rung führt zu den gleichen Schwierigkeiten beim Ma- 
nipulieren der Speicheradressen. Obwohl es sich um 
eine schlechte Programmiertechnik handelt. ist sie bei 
PL/M und Mikroprozessor-PASCAL erlaubt. Die Syn- 
tax von Mikroprozessor-PASCAL zwingt den Pro- 
grammierer jedoch, Statements im Programm zu ma- 
chen, die klarstellen, was durchgeführt wird, außer- 
dem können die Speicherbereiche, für die diese Poin- 
ter erlaubt sind, beschränkt werden. Bei PL/M sind 
solche Statements nicht von normalen Zuweisungs- 
Statements zu unterscheiden. 

Eine gute Programmiersprache sollte so konzipiert 
sein, daß Daten flexibel verwendet werden können 
(Punkt 10). Damit die Ausdrücke klar sind, sollten sich 
die Datentypen über reelle Zahlen. ganze Dezimalzah- 
len, Boolesche Variable, Textzeichen, Felder, Sets, 
Records und Kombinationen aus diesen Elementen er- 
strecken. PASCAL erlaubt es dem Programmierer, 
seine eigenen Datentypen festzulegen, was die Zuver- 
lässigkeit in hohem Maße verbessert und die Zahl von 
Programmierfehlern reduziert, die üblicherweise bei 
der Behandlung von Daten auftreten. Mit PASCAL 
kann man Problemlösungen durch vertraute Termino- 
logie beschreiben, z. B. kann eine Variable „Wochen- 
tag‘‘ vom Typ „MONTAG“, „DIENSTAG“ usw. sein. 
Selbst COBOL besitzt eine solche Möglichkeit nicht. 

Die Fähigkeit des Compilers, Fehler- und Verträg- 
lichkeitsprüfungen vorzunehmen, ist nicht aus- 
schließlich eine Funktion des Compileraufbaus, son- 
dern auch abhängig von der Programmiersprache. 
Softwareentwicklung ist einfacher, wenn soviel Feh- 
ler wie möglich während der Compilierung erkannt 
werden. Dies ist um so wichtiger, je größer das Pro- 
gramm wird. Eine der wichtigsten Eigenschaften von 
PASCAL ist die Möglichkeit, Unverträglichkeit von 
Datentypen bei der Datenmanipulation zu lokalisie- 
ren. Implizite Mixed-Mode-Operationen an Daten 
sind verboten. 

PASCAL steuert den Zugriff auf Daten (Punkt 12) in 
einer Weise, die den Programmierer daran hindert, 
über Prozeduraufrufe unverträgliche Manipulationen 
an Daten auszuführen. Solche Operationen können 
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außerordentlich überraschende Fehler in einem gro- 
Ben System verursachen, besonders, wenn der Fehler 
datenabhängig ist. 


Run-Time-Support 


Die meisten höheren Programmiersprachen, ein- 
schließlich PASCAL können auf eine der zwei Arten 
ausgeführt werden: 

1. Die Statements der höheren Programmiersprache 
werden während des Programmablaufs in den Ma- 
schinencode übersetzt (interpretiert). 


2. Die Statements der höheren Programmiersprache 
werden vor dem Programmablauf übersetzt (compi- 
liert). 

Beim Mikroprozessor-PASCAL-System kann der 
Anwender beide Methoden benutzen. Compilierter 
Code ist bei der Programmausführung schneller, aber 
es wird ein größerer Speicherbereich bei umfangrei- 
chen Applikationen erforderlich. Zunächst benötigt 
man weniger Speicher beim compilierten Code, weil 
ja kein Interpreter vorhanden ist. Trotzdem braucht 
das Anwenderprogramm mehr Platz, weil der Ma- 
schinencode weniger kompakt ist als der interpretier- 
bare Code. 

Um die beste Transportabilität zu erreichen, bietet 
TI einen Softwarekern passend zur Hardware. Dieser 
nur wenig Speicherplatz belegende Bereich enthält 
neben anderen Dingen eine Verwaltung für den 
„Stack‘‘, in dem die Benutzerdaten und Systemvaria- 
blen enthalten sind. Dieser Bereich ist nicht transpor- 
tabel, liefert aber eine Basis für PASCAL, auf der die 
Executiv-Software sowie die Anwendersoftware auf- 
baut. Aufdiese Weise wird sowohl das Betriebssystem 
als auch das Anwenderprogramm maschinenunab- 
hängig. Um das System auf eine Hardware mit ande- 
rem Instruktionssatz zu transportieren, wird eine rela- 
tiv einfache Modifikation des Mikroprozessor-PAS- 
CAL-Codegenerators erforderlich. Der Compiler 
selbst, der den interpretierbaren Zwischencode (P- 
Code) erzeugt, braucht nicht verändert zu werden. 

Wenn komplexe Probleme im Echtzeitbetrieb gelöst 
werden sollen, ist es üblich, die Lösung in verschie- 
dene gleichzeitig ablaufende Subtasks aufzuteilen. 
Umfangreiche zeitabhängige logische Abläufe wer- 
den in kleinere und leicht zu handhabende parallele 
Steuerschleifen aufgelöst. Es ist fast unmöglich, dies 
in einem sequentiellen logischen Flußdiagramm aus- 
zudrücken, da die unterschiedlichsten Zustandskom- 
binationen, die in Anwendung auftreten, dargestellt 
werden müßten. 

Um die parallelen Programmabläufe zu verwalten, 
muß ein übergeordnetes Programm die zur Verfügung 
stehende Hardware verteilen und den gleichzeitigen 
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Ablauf nach vorher aufgestellten Regeln planen. Die- 
ses Management, das auch ‚Concurrent-Processing‘“ 
genannt wird, ist ein Teil des Betriebssystems und 
wird in der Mikroprozessor-PASCAL-Library, sowohl 
für interpretierbaren (MPIX), als auch für Maschinen- 
code (MPX),geliefert. Die Programm-Teile, die paral- 
lel ausgeführt werden, werden mit Prozeß bezeichnet. 
Jeder Prozeß besitzt seine Priorität bezüglich der an- 
deren Prozesse, eine Aufzeichnung seiner Aktivitäten, 
Daten und Prozedur-Subroutinen. Die Aufgabe des 
MPX/MPIX ist die Verwaltung dieser Prozesse auf 
verschiedenen Ebenen der erforderlichen Priorität. 
Die höchste Priorität sind Interrupts. 

Die Prozesse müssen synchronisiert werden und 
miteinander kommunizieren. In der einfachsten Form 
geschieht das durch Semaphores. Ein Semaphore 
wird durch Systemaufrufe verfügbar. Auf der näch- 
sten Stufe der Komplexität werden die Semaphores in 
einem „Briefkasten‘‘-Kommunikations-Schema _ be- 
nutzt, mit Nachrichten, die zwischen den Prozessen 
versandt und empfangen werden. Das geschieht mit 
Semaphores, die signalisieren, daß eine Nachricht 
vorliegt. 

Die allgemeinste Kommunikation zwischen den 
Prozessen geschieht über Files, die über die PAS- 
CAL-E/A-Möglichkeiten angesprochen werden. Ein 
Prozeß führt PASCAL-WRITE aus, während der an- 
dere READ ausführt. Auch hier werden wieder Sema- 
phores benutzt, um die Aktivitäten zweier oder meh- 
rerer Prozesse zu synchronisieren, die auf ein File Zu- 
griff haben. 


Nützliche Dienstprogramme 


Neben Compiler, Interpreter und der umfangrei- 
chen Sammlung von Betriebssystem-Moduln, die 
Concurrent-Programming unterstützen, liefert TI in 
seinem Mikroprozessor-PASCAL-System einen voll- 
ständigen Satz von Dienstprogrammen. 

Das beginnt beim bildschirmorientierten Editor mit 
eingebautem PASCAL-Syntax-Check. Damit kann 
Programmtext nicht nur sehr komfortabel und rasch 
bearbeitet werden, sondern es ist bereits während der 
Eingabe eine Überprüfung auf syntaktische Richtig- 
keit des PASCAL-Programms möglich, ohne daß vor- 
her ein Gompilerlauf nötig ist. 

Eine umfangreiche Sammlung von Debug-Routinen 
erlaubt das Austesten der PASCAL-Programme auf 
zwei Ebenen: Auf dem Mikroprozessor-Entwick- 
lungssystem AMPL ist ein reiner Software-Funktions- 
test möglich, wobei Interrupts und Hardware E/A si- 
muliert werden können. Ist die Hardware für das end- 
gültige Anwendersystem fertiggestellt, so kann das 
ordnungsgemäße Zusammenspiel von Hard- und 
Software in Echtzeit unter Zuhilfenahme des 
AMPL-Emulators ausgetestet werden. Gleich auf wel- 
cher Ebene man austestet, der Debugger unterstützt 
neben Breakpoint, Single-Step, Trace auf Statement- 
oder Prozeß-Ebene., Stack- und Heap-Anzeige/Modi- 
fikation auch Befehle speziell zum Austesten von par- 
allel laufenden Prozessen. Der Zugriff erfolgt dabei 
symbolisch, d.h. direkt auf PASCAL-Statements, 
weshalb man von „Source-Debug‘ spricht. 


Die „Fallgruben‘‘ von PASCAL 


Programmiersprachen können nicht beurteilt werden, 
ohne mit Programmierern zu sprechen, weil Software ein 
Werkzeug zur Problemlösung ist. Und Problemlösung ist 
immer noch eine subjektive Fähigkeit, nicht aber eine 
Wissenschaft. 

Was denken Ingenieure und Programmierer, die mit 
Echtzeit-Test- und -Meßgeräten zu tun haben, über PAS- 
CAL? Um das herauszufinden, wurde eine Gruppe inter- 
viewt, die täglich diese Sprache benutzen. Die Ge- 
sprächsrunde wurde bei Tektronix in Beaverton, Ore., 
abgehalten. Wie viele andere Firmen, die mit hochste- 
hender Technologie arbeiten, befaßt man sich bei Tek- 
tronix schon seit Jahren mit PASCAL. Verschiedene Ver- 
sionen dieser Sprache sind für die Computer von Tektro- 
nix verfügbar. 

Bei der Diskussion kamen die Grenzen von PASCAL 
zur Sprache. Der Gedanke dabei war nicht, potentielle 
Anwender abzuschrecken (die meisten Beteiligten am 
Gespräch sind enthusiastische Befürworter von PAS- 
CAL), sondern es sollten einige „Fallgruben‘‘ beleuchtet 
werden, über die noch nicht näher berichtet worden ist. 

Die Nachteile scheinen sich in diese Kategorien eintei- 
len zu lassen: 

@ Die Probleme eines Ingenieurs, der über Erfahrungen 
mit anderen Sprachen wie FORTRAN oder BASIC ver- 
fügt und der nun zu PASCAL übergehen möchte, 

@ ‚Programmier-Flaschenhälse‘‘ — Es handelt sich hier- 
bei um Eigenheiten in der Syntax der Sprache, die be- 
stimmte Aufgaben schwieriger machen, als sie sind, 

@ Beschränkungen von PASCAL als ein Werkzeug zur 
Erzeugung von Maschinencode für Mikroprozessor- 
Systeme. 


Nie mehr „Spaghetticode“ 


Spaghetticode ist eine Bezeichnung für eine verwik- 
kelte Aneinanderreihung aus schwer verständlichem 
Code ohne erkennbaren Anfangs- oder Endpunkt. Spa- 
ghetticode kann in jeder Sprache geschrieben werden, 
einschließlich PASCAL (Bild 2a). Aber manche Spra- 
chen, so z. B. PASCAL,.haben eine Syntax, die eine klare 
Ausdrucksweise ermöglicht und fördert. 

Bei Tektronix haben sich die Ingenieure durch Selbst- 
studium oder durch Lehrgänge mit Firmenunterstützung 
auf PASCAL eingearbeitet. Zwei Teilnehmer der Ge- 
sprächsrunde, Stephen Heitman, Software-Ingenieur, 
und Robert Reed, Software/Hardware-Ingenieur, führen 
solche Kurse durch. Eine Sache, auf die sie besondere Be- 
tonung legen, ist die Notwendigkeit, den Hang der Stu- 
denten zum Spaghetticode, den sie von BASIC und FOR- 
TRAN gewöhnt waren, zu bekämpfen. 


Ein weiterer Gesprächspartner war Paul Blattner, ein | 


Software-Forschungsingenieur, Richard Kaufmann, 
Software-Ingenieur, Stephen Dum, Forschungsmanager 
für neue Logikbausteine, Paul Hoefling, wissenschaftli- 
cher Software-Ingenieur, und Lynn Saunders, Hardwa- 


re-Ingenieur. Die wichtigsten Kernsätze der Diskussion: | 
Reed: „Das größte Problem, das ich beim Ausbilden einer | 


Gruppe von Ingenieuren habe, ist, daß die meisten mit 
BASIC groß geworden sind und glauben, daß dies die be- 
ste Sprache sei. Sie behalten diese Meinung bei, während 
sie PASCAL lernen. Ich neige dazu, zu übertreiben und 
mache BASIC schlecht. wo es geht. Deswegen sind sie 








mir manchmal ein bißchen böse, Es ist ein Kreislauf, aus 
dem man schlecht herauskommt.“ 


Blattner: „Es ist ja nicht nur eine andere Art der Pro- 
grammierpraxis. Es ist auch eine andere Art des Denkens. 
Wenn man von BASIC auf PASCAL übergeht, wird man 
gezwungen, von der ‚Spaghetticode-Denkweise‘ zur 
‚Top-down-Methode‘ überzugehen. Das ist ein schwieri- 
ger Prozeß des Umdenkens.“ 


Reed: „Das stimmt. Das sind aber nur die allgemeinen Ge- 
sichtspunkte des Problems.‘ 

Anscheinend erfordert die strukturierte Programmie- 
rung bei PASCAL neue Einsichten. Mr. Blattner be- 
schreibt, wie es war, als ihm „das Licht aufging“. 
Blattner: „Ich erinnere mich, daß, nachdem ich struktu- 
rierte Methoden gelernt hatte und versuchte, dies beim 
Programmieren anzuwenden, ich auch ein wenig in die- 
ser Art codierte — mit großen Schwierigkeiten — bis ich 
das Wesentliche erkannt habe. Ich hatte es eigentlich be- 
reits aufgegeben, weil es ohne die Einsicht, daß es vor- 
teilhaft ist, für mich lächerlich aussah, in dieser Art zu 
codieren. Aber irgendwie bin ich dann darauf gekommen 
und alles ist jetzt ganz natürlich.“ 

Kaufmann: „Es ist so, als ob man zu einer Bowling-Aus- 
bildung geht, nachdem man diesen Sport schon 20 Jahre 
betreibt. Man hat sich in dieser Zeit einiges angewöhnt, 
das man nun vergessen soll. Dafür gibt es andere Dinge, 
die man von Grund auf neu lernen muß.“ 

Heitman: „Man hat ein Gesamtkonzept und dieses wird 
in immer feinere Untergruppen aufgeteilt. Diese Vorge- 
hensweise ist besser als von Detailpunkten auszugehen, 
ihre Beziehungen und Verknüpfungen untereinander 
herauszufinden und alles zu einem Gesamtkonzept zu- 
sammenzufassen. Anstatt daß man eine Lösung beim Lö- 
sen des Problems sucht, geht man den umgekehrten 
Weg.“ 

Einstimmiges Lob für PASCAL 

Alle Software-Ingenieure bei Tektronix lobten die 
Nützlichkeit und Flexibilität dieser Sprache. 

Reed: ‚Ich finde die Einfachheit der Verzweigungsstruk- 
turen bei PASCAL besonders gut. Es gibt sehr viele einfa- 
che Verzweigungsstrukturen, die man kombinieren kann 
um so viele Aufgaben auszuführen, wie man möchte. 
Aber das wichtigste bei PASCAL ist die Fähigkeit zur Da- 
tenstrukturierung — weil das Zentralpunkt der inge- 
nieurmäßigen Programmierung ist, nämlich das Entwik- 
keln von Datenstrukturen und deren Manipulation, um 
die gewünschten Ergebnisse zu erhalten.“ 

Blattner: ‚‚Von allen Sprachen, mit denen ich gearbeitet 
habe - und ich habe mit FORTRAN, COBOL, BASIC, PL/1 
und nun PASCAL gearbeitet —, scheint mir PASCAL die 
leistungsfähigste Sprache in dieser Größenklasse zu sein. 
In anderen Worten, man hat eine Sprache, die so knapp 
gehalten ist wie viele der neueren Sprachen, die bei Mi- 
kroprfozessoren Verwendung finden, aber sie scheint so 
leistungsfähig, wenn nicht leistungsfähiger zu sein, wie 
man das von den umfangreichen Compilern der traditio- 
nellen Sprachen gewöhnt ist. 

Kürzlich habe ich ein Suchprogramm ausgearbeitet 
und mußte etwas haben, was neben richtig oder falsch 
liegt — ich brauchte eine vierwertige Logik. Daher habe 
ich einfach einen vierwertigen Typ definiert und nun 
kann ich Werte — diese vier Werte — einer Variablen zu- 
weisen. 
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Mehr als andere Sprachen, die ich kenne, veranlaßt ei- 
nen PASCAL, in strukturiertem Code zu schreiben. Ich ar- 
beite jetzt schon vier Monate mit PASCAL und habe tat- 
sächlich noch kein ‚GO-TO‘ oder ein Label benutzt... 


In anderen Worten: PASCAL führt zum Top-Down-De- 
sign und durch seine Struktur zum strukturierten Code.“ 

Aber bis zu einem gewissen Grade kann jede Sprache 
blockstrukturiert sein. Mr. Reed berichtet von seinen Er- 
fahrungen mit FORTRAN. 


Reed: „Ich habe eine Menge in FORTRAN programmiert. 
Ich glaube, daß der Code, den ich in FORTRAN schreibe, 
blockstrukturiert ist und sich an die Top-Down-Architek- 
tur anlehnt, obwohl derartige Konstruktionen in der 
Standardsprache nicht verfügbar sind. Ich mache das mit 
meinen zusätzlichen Kommentarstrukturen, indem ich 
von der wirklichen Struktur des Codes abrücke. Ich 
schreibe die Routinen und Subroutinen so, daß sie von 
oben nach unten ablaufen und ich vermeide möglichst 
Programmsprünge. Ich benutze die GO-TO-Statements 
und ähnliche nichtstrukturierte Steuerfunktionen, um 
die Blockstruktur-Techniken zu implementieren. Au- 
Berdem benutze ich eine Menge CONTINUFE-State- 
ments.‘‘ 


PASCAL hat auch Schwächen 


Es gibt mehrere Schwächen bei PASCAL, aber nach 
Aussage von Mr. Dum soll es bald eine vernünftige Über- 
einkunft zwischen den PASCAL-Usergroups über Erwei- 
terungen zur Behebung der Mängel geben. Unabhängig 
von den Erweiterungen gibt es tatsächlich unerfreuliche 
Aspekte dieser Sprache. 

Dum: „Ich glaube, einer der wirklichen Mängel des ge- 
genwärtigen PASCAL ist, daß man einen Code schreiben 
muß, der jeder Konstanten einen Wert zuordnet. Das läuft 
darauf hinaus, daß man zwei- bis dreimal soviel Platz in 
seinem Programm braucht, um die Aufgabe zu lösen... 
Man muß der Aneinanderreihung von Konstanten Platz 
zuweisen, dann jedes Element nehmen und verschie- 
ben.“ 

Reed: „PASCAL ist entwickelt worden, um jemandem 
Programmieren beizubringen. Deshalb gibt es sehr 
strenge Datendefinitionen. Das spart sehr viel Aufwand 
bei der Fehlersuche, aber manchmal — wenn man z.B. 
versucht, bestimmte anspruchsvollere Datenstruktur- 
Manipulationen vorzunehmen — wirkt sich das behin- 
dernd aus. 

Eine andere Schwäche von PASCAL, zumindest eini- 
ger Versionen, ist die fehlende Zuweisung, um Felder mit 
variabler Länge für String-Operationen zu erlauben. 
Noch ein weiterer Nachteil ist die mangelnde Modulari- 
tät zwischen verschiedenen Teilen eines Projekts, damit 
man nicht für jedes Modul alle externen Referenzen bis 
ins kleinste Teil definieren muß. Ich glaube auch, daß es 
schwierig ist, Prozesse parallel ablaufen zu lassen, wenn 
man nicht gerade Concurrent PASCAL benutzt.“ 


Hoefling: „Einer der Mängel bei Standard-PASCAL ist 
das Fehlen des ELSE bei CASE-Statements. Wenn die 
CASE-Abfrage auf keines der CASE-Labels paßt, ergibt 
sich bei PASCAL ein undefinierter Zustand.“ 

Heitman: „Ein anderes Problem ist das Fehlen von Ex- 
ponential-Operatoren. Das ist absurd. Ich beschäftige 
mich vorwiegend mit numerischer Analysis. Ich finde es 
wirklich ärgerlich, keinen Exponential-Operator zu ha- 
ben. Wenn ich gewisse mathematische Routinen auszu- 
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führen habe, muß ich spezielle Prozeduren schreiben, um 
dies tun zu können.“ 

Saunders: „Es ist schwierig, PASCAL und Assembler- 
Code zu mischen. Schnelle Programmausführung ist le- 
benswichtig für Echtzeitanwendungen wie z.B. einem 
Multimeter. Der Entwickler der Firmware sucht ein 
Werkzeug, das ihm einerseits Assembler-Code liefert, 
aber andererseits das Format einer höheren Program- 


(*MAIN PROGRAM *) 
BEGIN 
RESET (input files); 
REWRITE (output files); 
[ 10]IF EOF (employees) THEN 6010[99 | 
READ (employee info and hours worked) ; 
IF NOT employee is exempt THEN 6070 2] 
STRAIGHTTIME (40); 
BENEFITS (40); 


6070 TE nn 





30: STRAIGHTTIME (40); 
OVERTIME (hours worked—40); 


1 50:1 WRITECHECK; 
UPDATEFILE; 
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(* MAIN PROGRAM *) 
BEGIN 
RESET (input files); 
REWRITE (output files); 
WHILE NOT EOF (employees) DO 
BEGIN 
READ (employee info and hours worked); 
IF employee is except THEN 
STRAIGHTTIME (40); 
BENEFITS (40) 
END 
ELSE 
IF more than 40 hours worked THEN 
BEGIN 
STRAIGHTTIME (40); 
OVERTIME (hours worked—40); 
BENEFITS (hours worked ) 
END 
ELSE 
STRAIGHTTIME (hours worked); 
BENEFITS (hours worked) 
END; 
WRITECHECK; 
UPDATEFILE ; 
END; (*EMPLOYEE LOOP *) 
PRINTTOTALS; 
END. (* PROGRAM *) 


Bild 2. „Spaghetticode‘‘ kann unglücklicherweise in jeder Sprache ge- 
schrieben werden, einschließlich PASCAL, wie es in dem oberen Beispiel 
(A) dargestellt ist. Das gleiche ist in Blockform (B) ausgeführt. Programm 
A ist schwerer zu lesen, weil es GO-TO-Statements und Lables enthält. 
Deswegen benützt das Programm B Steuerworte (WHILE, BEGIN, IF- 
ELSE, END) um zu klären, wie der Algorithmus funktioniert. Bei den übli- 
chen Subroutinen, die auch eine Art strukturiertes Statement sind, wäre A 
viel länger als B und auch schwerer zu verstehen. Das Programm stammt 
von Paul Blattner 





miersprache besitzt, um die Stacks und Register in den 
Griff zu bekommen. 


Der Entwickler kann 80 % seiner Arbeit mit der höhe- 
ren Programmiersprache wie z. B. PASCAL erledigen, 
aber dann bleiben noch die 20% mühevolle Kleinarbeit, 
um dem Multimeter die höchste Geschwindigkeit zu ge- 
ben. Das erfordert Erweiterungen der höheren Program- 
miersprache, um direkten Zugriff im Assemblercode auf 
Hardwareadressen zu haben. 


Die meisten Leute, die Erweiterungen für PASCAL ver- 
langen, denken, sie könnten dieses Problem durch Mo- 
duln lösen, die für sich compilierbar sind. Ich meine, daß 
die Aufteilung eine Stufe höher vorgenommen werden 
sollte. Ich würde PASCAL als eine Sprache sehen, die 
man zur Entwicklung von Firmware benutzen kann, mit 
einer Art Schalter, der es einem erlaubt, den Compilier- 
vorgang an einem bestimmten Punkt des Quellencodes 
zu stoppen, indem man sagt: ‚OK — Compiler, du hast 
deine Arbeit getan. Weil es jetzt schneller gehen muß, 
wird jetzt die Codierung in Assembler weitergeführt‘. 


Kaufmann: ‚In automatischen Testsystmen steht es um 
dieses ‚Schalterproblem‘ besonders schlecht, weil es kei- 
nen Weg gibt, dem PASCAL-Compiler zu sagen: ‚Ich bin 
jetzt bei der zwölften verschachtelten Programmproze- 
dur angelangt und möchte anhalten, weil ich bemerkt 
habe, daß irgendein Chip nicht richtig läuft‘.“ 


Heitman: „Es ist schwierig, eine ‚Bit-Verarbeitung‘ mit 
PASCAL durchzuführen... Bei bestimmten praktischen 
Programmieranwendungen, wiez. B. beim Maskieren, ist 
es so gut wie unmöglich, effiziente Programme in Stan- 
dard-PASCAL zu schreiben. Es wäre natürlich schön. 


wenn man in der Lage wäre, eine Art Assemblercode in 
das Programm zu integrieren. Man kann es mit Assem- 
blercode oder FORTRAN-Programmen verknüpfen im 
Tek-Cyber-Programm, jedoch nicht mit Standard-PAS- 
GAL. 


Wie TI PASCAL verbesserte 


Nachdem TI mehrere Jahre Erfahrung durch internen 
Gebrauch von PASCAL gewonnen hatte, wurden etwa 
ein halbes Dutzend Änderungen in der Syntax und im 
Compiler dieser Sprache vorgenommen, um aus PASCAL 
ein „lebenstüchtiges‘‘ Werkzeug zu machen. 

Unter den Syntaxveränderungen sind flexiblere E/A- 
Aufrufe, zuverlässigere Definitionen der Statements 
WITH, FOR und CASE, eine konventionellere Definition 
der Booleschen Operatoren (wie bei FORTRAN) und 
eine Restriktion des Variablen-Bereichs einer Funktion, 
damit die Variable nicht versehentlich verändert wird. 
wenn sie beim Programmablauf aufgerufen wird. 

Im einzelnen wurden die E/A-Befehle GET und PUT 
durch die Standard-Funktionen READ und WRITE er- 
setzt, die auf Text- oder Nichttext-Files erweitert wurden. 
Es stimmt, daß die ursprünglichen E/A-Statements den 
Transport leichter vornehmen, aber das wurde hier geop- 
fert, um größere Flexibilität zu erlangen. 

Erweiterte Integer-Typen (LONG INT) werden über ei- 
nen Bereich von —2?!...2??-1 verarbeitet. 


PASCAL hat ein besonders zeitsparendes WITH-Sta- 
tement, das für ein einzelnes Record-Statement in einer 
DO-Schleife verwendet werden kann. Im WITH-State- 
ment ist es nicht notwendig, die Identifier der Variablen- 








felder dieses Records anzugeben. Mikroprozessor-PAS- 
CAL erlaubt den Gebrauch von expliziten Mehrfach- 
WITH-Statements ohne Doppeldeutigkeit. 


Im FOR-Statement, mit dem Schleifen in einer festge- 
legten Anzahl durchlaufen werden, muß die Laufvariable 
nicht erklärt werden und ist nur innerhalb der Schleife 
bekannt. Das erhöht die Zuverlässigkeit des FOR-State- 
ments. In der Originalform von PASCAL hätte die Varia- 
ble außerhalb der Schleife in einem anderen Zusammen- 
hang verwendet werden dürfen. So hätte nach dem Ver- 
lassen der Schleife diese Variable leicht unbeabsichtigt 
verändert werden können. 


PASCAL verfügt über ein CASE-Statement, das eine 
Befehlsfolge unmittelbar nach einer einfachen Überprü- 
fung eines Wertes, vor der das Wort CASE steht, ausführt. 
Mehrere CASE-Labels können benutzt werden. Schwie- 
rigkeiten können entstehen, wenn der Compiler ein 
CASE-Label sucht, welches nicht existiert. TIP erlaubt 
eine OTHERWISE-Bestimmung für den Fall, daß ein 
CASE-Label fehlt. Es erlaubt auch Subrange-Labels bei 
CASE um Werte in einem abgegrenzten numerischen Be- 
reich festzulegen. Die Verbesserungen des 9900-Compi- 
lers umfassen die folgenden Punkte: 


@ Er unterstützt Randum-Access-Files. Ein Random-File 
ist implementiert als Satz von logisch geordneten Re- 
cords, beginnend bei Null. Auf die Records wird direkt 
zugegriffen durch die relative Position im File. 


@ i;:r läßt verschiedene Routinen die gleiche allgemeine 
Globalvariable benutzen ohne Mehrfachzuweisungen 
an den Run-Time-Stack. Das ermöglicht den gleichen 
Wert der Variablen beizubehalten von einem Aufruf 
der Routine zum nächsten. 


®@ Er erlaubt das Einbinden von Run-Time-Prüfpunkten, 
um z. B. Feldgrenzen, Pointer, Satz und Subranges auf 
Gültigkeit zu prüfen. 


@ Er erlaubt einen ESCAPE-Mechanismus, um die Aus- 
führung in Abhängigkeit von Fehlerbedingungen oder 
externen Ereignissen zu beenden. 


@ !;r bietet einen expliziten TYPE-OVERRIDE-Operator, 
damit der Compiler aus der Typ-Überprüfung einer 
Routine herauskommt. Er bietet ein ASSERT-State- 
ment, das die Einfügung von benutzerdefinierten 
Run-Time-Prüfpunkten in das Programm erlaubt. 


@ Er ermöglicht getrennte Compilation von Prozeduren 
und das Einbinden von Assembler-Routinen. Der 
Compiler überprüft zusätzlich zur normalen Typ- 
Überprüfung, wie die Daten zwischen Routinen ausge- 
tauscht werden. 


@ |;r bietet E/A-Möglichkeiten zur Bitmanipulation, da- 
durch, daß der PASCAL-Code für die direkte Adressie- 
rung der Hardware-Kommunikationsregister-Einheit 
(CRU) des Mikroprozessors TMS 9900 erweitert wird. 
Dieses Merkmal bindet, wenn es benutzt wird, den 
Compiler an spezifische Hardware und unterbindet 
damit die Transportabilität, aber Bitverarbeitung ist so 
wichtig für die Laufzeitoptimierung, daß der Nachteil 
gerechtfertigt ist. 
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Programmieren m POLL 


Auch in Mikroprozessorsystemen sind mitt- 
lerweile höhere Programmiersprachen an- 
wendbar geworden. Dabei hat sich PASCAL 
als praktische und universelle Anwender- 
sprache herausgestellt, die durch ihre Kon- 
trollanweisungen und Datenstrukturen das 
systematische Programmieren unterstützt. 
Hier soll anhand von praktischen Beispie- 
len das Programmieren mit PASCAL vorge- 
stellt werden. 


1 Bedeutung von PASCAL und derzeitiger 
Stand 


Mit dem Erfolg von PASCAL ist erneut eine heftige 
Diskussion über die ‚beste‘ Programmiersprache ent- 
brannt. Als ein Indiz für die nun schon breitere Ver- 
wendung von PASCAL mag gelten, daß die Normung 
auf nationaler (DIN) und internationaler Ebene 
(ISO/TC 97/SC5) betrieben wird. Sowohl FORTRAN 
(trotz seines reichhaltigen Bibliothekangebots) als 
auch BASIC (die beliebteste Sprache auf kleinen 
Computern) haben eine ernstzunehmende Konkur- 
renz bekommen. ALGOL-60 und natürlich auch das 
kompliziertere ALGOL-68 erscheinen auf dem Be- 
reich des praktischen Programmierens schon über- 
rundet, was nicht verwundert, da PASCAL über 
ALGOL hinausgeht, aber leichter zu erlernen ist. Für 
die Verbreitung von PASCAL spricht, daß die beiden 
Entwicklungsziele von Niklaus Wirth, nämlich 
leichte Erlernbarkeit und Lesbarkeit für den Benutzer 
sowie leistungsfähige Übersetzung durch den Compu- 
ter, überzeugend realisiert wurden. Außer diesen bei- 
den Zielen haben sich noch folgende Punkte als rele- 
vant erwiesen: PASCAL soll allgemein verwendbar 
sein — was natürlich nicht heißt, daß es für alles be- 
nutzt werden kann. Dienoch 
immer scharfe Trennung 
zwischen den einerseits 

wissenschaftlich-techni- 
schen und andererseits 
mehr kaufmännisch orien- 
tiertten Programmierspra- 
chen (FORTRAN, COBOL) 
soll aufgehoben, d.h. die Be- 
handlung numerischer und 
nicht numerischer Probleme 
mit einer Sprache ermög- 
licht werden. Zu diesem 
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Punkt gehört auch, daß vorhandene und erprobte 
Software weiterhin benützt werden kann. 

Ein wichtiges Kriterium für die Qualität einer Spra- 
che ist der Gesichtspunkt der Austauschbarkeit von 
Programmen zwischen verschiedenen Rechnern 
(Stichwort: Übertragbarkeit, portability). Sind Pro- 
gramme ohne Änderungen — das Ideal — zu übertra- 
gen, so wird teure Mehrfachentwicklung vermieden 
und der Zugang auf Software aus anderen Quellen 
erleichtert. Notwendig dazu ist eine eindeutige 
Formulierung eines Sprach-Standards und: daß 
sich die Compiler nach diesem Standard richten. Da 
bei der Realisierung eines Compilers auf einem kon- 
kreten Computer maschinenabhängige Faktoren eine 
Rolle spielen, führte dies im gewissen Maße auch bei 
PASCAL dazu, daß verschiedene ‚Dialekte‘‘ entstan- 
den sind. Der derzeitige Entwurf zur internationalen 
Standardisierung basiert daher sehr eng auf dem Re- 
port von Jensen/Wirth 1! und versucht so, einem 
Wildwuchs entgegenzuwirken. Es besteht daher be- 
rechtigte Hoffnung, daß PASCAL eine weitgehend 
herstellerunabhängige Sprache bleibt. 

Manche Beschränkungen - z. B. keine dynamische 
Felder wie in ALGOL-60, keine festvereinbarten Va- 
riablen (A, A1, A$) wie in BASIC, das Fehlen der dop- 
pelten Genauigkeit wie bei FORTRAN und COBOL -— 
werden von vielen Programmierern nur schwer akzep- 
tiert, was zunächst eine Ablehnung von PASCAL 
hervorruft. Erfahrungen zeigen aber, daß nach einer 
Umstellungszeit diese Punkte an Bedeutung verlie- 
ren. Über die Schwächen von PASCAL wird noch zu 
gegebener Zeit zu reden sein. 

Die Anwendüngstiefe von PASCAL läßt sich u.a. 
daran demonstrieren, daß die Verbreitung der Spra- 
che wesentlich durch den sogenannten PASCAL-P- 
Compiler gefördert wurde. Dieser Compiler ist in 
PASCAL selbst - also in der Sprache, die er übersetzt — 
geschrieben (Länge der Programm-Liste: ca. 3600 Zei- 
len). Er erzeugt aus einem (korrekten) Programm einen 
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Bild 1. Grafischer Überblick zu den PASCAL-Datentypen 
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allgemeinen P-Code. also keinen speziellen Assem- 
blercode. Dieser P-Code ist für einen hypothetischen 
Computer mit einem Stapel (stack computer) definiert 
und enthält in etwa die von Assemblern her bekannten 
Befehle. Für die Anpassung (Implementierung) an 
eine bestimmte Rechenanlage ist zunächst ein kleiner 
Interpreter oder Assembler zur Übersetzung des P-Co- 
des des PASCAL-P-Compilers in den Maschinencode 
erforderlich. Darauf aufbauend kommt man nach eini- 
gen Optimierungsschritten zu einem leistungsfähigen 
PASCAL-Compiler. Auf diesen Aspekt wird im Ab- 
schnitt 8 nochmals eingegangen. Da ein solch um- 
fangreiches Programm auch von einem weniger geüb- 
ten Programmierer gelesen und nach einer Einarbei- 
tungszeit verstanden werden kann, bietet es die Mög- 
lichkeit, sich Problemlösungen für das Übersetzen an- 
zueignen und auf eigene Aufgabenstellungen (z.B. 
Entwicklung eines Cross-Assemblers für einen Mi- 
kroprozessor) anzuwenden. 


Nach der ursprünglichen Beschreibung der Pro- 
grammiersprache PASCAL vonN. Wirth im Jahre 1971 
‚2 erfolgte einige Jahre später eine Revision |3, 4, 1). 
Der Name PASCAL wurde von N. Wirth zu Ehren des 
französischen Philosophen und Mathematikers Blaise 
Pascal (1623...1662) gewählt, der eine der ersten 
funktionstüchtigen Rechenmaschinen gebaut hatte. 


Das ‚User Manual and Report‘ von Jensen/Wirth 1 ist 
z.Zt. das anerkannte Standardwerk über die Pro- 


grammiersprache PASCAL. Die in Aussicht genom- 
mene Standardisierung weicht nur in wenigen Punk- 
ten von dieser Fassung ab. Der deutsche Bericht 3) 
enthält ausschließlich den übersetzten Report aus |1| 
und ist somit als Lehrbuch weniger geeignet. Die mitt- 
lerweile in deutscher Sprache 5, 6, 7,8,9 erhältlichen 
Pascal-Lehrbücher sollen hier zunächst erwähnt und 
später kurz besprochen werden. 


Mitte der siebziger Jahre wurde die ‚Pascal User's 
Group‘ (PUG) gegründet, um die Verbreitung von 
PASCAL zu fördern. In ihren Mitteilungen — den 
„Pascal News“ — finden sich Diskussionen über die 
Sprache, in PASCAL formulierte Algorithmen (z. B. 
Schönschreiben eines PASCAL-Textes) sowie Hin- 
weise auf maschinenabhängige Implementationen 
(für mehr als 100 verschiedene Rechenanlagen kleine- 
rer und größter Computer-Hersteller). Anfang 1979 
hatte die Vereinigung weltweit ca. 3000 Mitglieder. 
Da das Hauptziel erreicht ist, wird z. Zt. intern über 
eine neue Form des Weiterbestehens diskutiert. 

Der schon oben erwähnte PASCAL-P-Compiler — 
ebenfalls in Zürich entstanden (1973) — darf als ein 
Meilenstein in der Geschichte von PASCAL betrachtet 
werden. Er diente nicht nur der Verbreitung dieser 
Programmiersprache, sondern gab auch Anstöße zur 
Realisation neuer Rechner-Strukturen. Mit der PAS- 
CAL-Microengine von Western Digital ist zum er- 
stenmal ein Computer auf dem Markt, dessen Prozes- 
sor den (modifizierten) P-Code direkt decodiert und 
ausführt. Dieser Rechner braucht und hat keinen (!) 
Assembler. Die gesamte Software für das Betriebssy- 
stem (Text-Editor usw.) ist in PASCAL geschrieben 
und liegt als P-Code auf der Magnetplatte. Man darf 
gespannt sein, wie andere Hersteller von Rechnern auf 
diese Herausforderung reagieren. 


18 


Das in dieser Arbeit beschriebene PASCAL ermög- 
licht wie die Sprachen FORTRAN, COBOL, ALGOL 
oder BASIC das Programmieren sequentieller Prozes- 
se. Die besondere Bedeutung von parallelen Prozes- 
sen, wie sie bei der Echtzeitverarbeitung (Multipro- 
grammierung, Betriebssysteme, Synchronisation ver- 
schiedener Prozesse u.a.) auftreten, führte zur Ent- 
wicklung von „CONCURRENT PASCAL“ |10). Eine 
ebenfalls auf dem sogenannten Monitor-Konzept-ein 
Monitor koordiniert zwei oder mehrere Prozesse — 
aufgebaute Sprache wurde 1977 von N. Wirth vorge- 
stellt; ihre Nachfolgerin MODULA-2 11) befindet sich 
noch im experimentellen Stadium. 

Die Entwicklung der Sprache — im wesentlichen — 
durch eine einzelne Person ist ein weiteres Merkmal 
von PASCAL. Dadurch hat PASCAL ein hohes Maßan 
innerem Zusammenhang. Auf der anderen Seite 
wurde dadurch manchen Gesichtspunkten und Wün- 
schen, wie beispielsweise einem wahlfreien Zugriff 
auf Dateien, nicht Rechnung getragen. Die internatio- 
nale Standardisierung wird hier sicher die Gewichte 
zwischen den Anforderungen der Lehre und der indu- 
striellen Praxis neu überdenken. 


2 Überblick über PASCAL 


Ein Programm dient im weitesten Sinne zur Mani- 
pulation von Daten und beinhaltet deshalb zwei As- 
pekte: zum einen die Form der Daten und zum ande- 
ren die Art, wie diese Daten verarbeitet werden sollen. 
Für das erstere bietet PASCAL ein reichhaltiges An- 
gebot, dem Problem angemessene Datenstrukturen zu 
konstruieren (Bild 1). Das reicht von einfachen Daten- 
typen mit den sogenannten Standardtypen (integer, 
real, boolean und char) zu den zusammengesetzten 
für Felder (array), Mengen (set), Dateien (file) und 
Verbunde (record). Über viele andere Programmier- 
sprachen hinausgehend gibt es in PASCAL die Auf- 
zählungstypen und die Unterbereichstypen. Mit den 
Aufzählungstypen ist es möglich, die meist undurch- 
sichtige Verschlüsselung von Daten zu verlassen; dies 
übernimmt bei PASCAL der Compiler. Statt einer 
Zuordnung für die Wochentage, z. B. Montag sei 0, 
Dienstag sei 1 usw., bis Sonntag sei 6, vergibt man 
Namen und ordnet sie in der gewünschten Reihenfol- 
ge, also z. B.: MONTAG, DIENSTAG usw. Die soge- 
nannten Unterbereichstypen dienen besonders der 
Zuverlässigkeit eines Programms, wenn der Wertebe- 
reich auf die sinnvoll vorkommenden Werte be- 
schränkt wird, Beispiel: die Anzahl der Tage eines 
Monats bewegt sich nur zwischen 1 und 31. 


Während Felder und Dateien wohlbekannte Typen 
sind, erlaubt das Arbeiten mit Mengen elegante Lö- 
sungen (ein Buchstabe ist z. B. in der Menge der Vo- 
kale enthalten). Ein Verbund besteht im Gegensatz zu 
anderen zusammengesetzten Datentypen aus Kompo- 
nenten verschiedenen Typs. Ein übliches Beispiel ist 
die Personenbeschreibung für eine Kartei. Ein einzel- 
nes Karteiblatt kann in PASCAL z. B. durch einen 
Verbund aus Personenname mit Vor- und Zuname, 
Alter, Geschlecht, Wohnort und Postleitzahl, Fa- 
milienstand und anderem dargestellt werden. Um 
Speicherplatz — auf Kosten der Verarbeitungsge- 
schwindigkeit — zu sparen, besteht die Möglichkeit, 
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die strukturierten Datentypen zu packen, was nicht 
nur auf Kleinrechnern nützlich sein kann. Die Zei- 
chenkette (string) nimmt unter den gepackten Feldern 
eine besondere Stellung ein; über die Beschränkung 
auf eine feste Länge wird im Abschnitt 7.2 über Text- 
verarbeitung noch zu reden sein. Für die Bearbeitung 
dynamischer Informationsstrukturen (Graphen) steht 
der Zeigertyp zur Verfügung. Die Zeiger sind an einen 
Datentyp fest gebunden und verketten durch ihre 
Verweise die Objekte dieser Typen zu linearen oder 
baumartigen Graphen. 

Zur Steuerung des Programmablaufs gibt es in 
PASCAL alle notwendigen Mechanismen. Neben 
den einfachen (die Wertzuweisung erfolgt wie in 
ALGOL-60 mit dem Operator „:=“*) gibt es die soge- 
nannten strukturierten Anweisungen. Dazu gehören 
die einseitige und zweiseitige Verzweigung (if... 
then... else), die Zählschleife (for... to... do). die Bedin- 
gungsschleifen (repeat...until und while...do), die 
Fallunterscheidung (case...of...end) und auch den 
unbedingten Sprung (goto). Zusammengehörende 
Anweisungen - beispielsweise in einer Zählschleife — 
werden mit begin und end eingeklammert. Für 
den Zugriff auf Komponenten der oben erwähnten 
Verbunde existiert eine Inspektionsanweisung (with... 
do). 

PASCAL hat eine ausgefeilte Unterprogrammtech- 
nik in Form von Prozeduren und Funktionen; als Pro- 
zedur- (bzw. Funktions-)Parameter können Werte und 
Variable sowie Prozeduren und Funktionen selbst auf- 
treten. Die meisten Compiler gestatten es, externe Un- 
terprogramme — auch anderer Sprachen - in das Pro- 
gramm einzuschleusen (Anmerkung: da ALGOL-60 
auch die sogenannten Namen-Parameter kennt, stößt 
die Verwendung von ALGOL-Bibliotheken auf 
Schwierigkeiten). Für die Standardtypen gibt es eine 
Reihe von Standardfunktionen (z.B. Exponential-, 
Nachfolgerfunktion u.a.) und Standardprozeduren 
(z. B. für die Ein-/Ausgabe: read, write u. a.). 


Jede Prozedur und Funktion hat wie das Programm 
selbst einen Vereinbarungs- und Anweisungsteil; 
beide Teile bilden einen Block. Die Strenge der Spra- 
che bringt es mit sich, daß jede Variable vereinbart 
und von einem bestimmten Typ — gegebenenfalls 
durch den Programmierer selbst definiert - sein muß. 
Davon sind natürlich die vordefinierten Namen (Be- 
zeichner) ausgenommen. 


Ein konkretes Programmbeispiel möge dem Leser 
einen ersten Eindruck über ein mittleres PASCAL- 
Programm vermitteln (Bild 2). Das Programm 
„HISTOGRAMM' ermittelt ein Histogramm von Ver- 
suchsdaten eines physiologischen Experimentes. Die 
Meßwerte wurden mit einem PCM-Masgnetbandgerät 
aufgezeichnet und über die Digitalkassette als 
Zwischenträger einer Großrechenanlage eingegeben. 
Das Programm liest die Daten ein, die sich wegen dem 
12-Bit-A/D-Umsetzer nur zwischen 0 und 4095 bewe- 
gen, klassifiziert sie und gibt die relativen Häufigkei- 
ten grafisch auf den Drucker aus. Das Unterpro- 
gramm zur Ausgabe wurde in eine Bibliothek ausge- 
lagert. um a) diese Möglichkeit zu demonstrieren und 
b) hier Platz zu sparen. In „HISTOGRAMM“ sind 
nur einige spezifische Eigenschaften von PASCAL 
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enthalten. Das äußere Erscheinungsbild wurde mit ei- 
nem Schönschreibprogramm aus der Bibliothek her- 
vorgerufen. 

Wegen der präzisen — natürlich mit kleinen Ein- 
schränkungen — Ausdrucksweise für Algorithmen 
und den dazu gehörenden Datenstrukturen findet man 
in der Literatur schon häufig Problemlösungen in 
PASCAL dargestellt, auch dann, wenn die eigentliche 
Verarbeitung mit einer anderen Sprache erfolgt. So- 
lange es für die graphische Darstellung von Datenty- 
pen keine den Programmablaufplänen vergleichbare 
Form gibt, werden ‚lesbare‘‘ Beschreibungen den 
Vorzug haben. 


3 Die Elemente der Programmiersprache 
PASCAL 


3.1 Grundsymbole, Bezeichner 


PASCAL kennt — wie andere Sprachen - einen fe- 
sten Satz von Zeichen. Per Definition ist ein Grund- 
symbol entweder ein Buchstabe, eine Ziffer, oder ein 
Sonderzeichen. In der Tabelle 1 sind alle Grundsym- 
bole verzeichnet. Daß die hier gezeigten Programm- 
beispiele keine Kleinbuchstaben enthalten, möge der 
Leser nicht als Vorentscheidung für eine Norm ausle- 
gen (der Verfasser hält die Möglichkeit der Groß- und 
Kleinschreibung in einem PASCAL-Programm für 
zweckmäßig; die mengenmäßige Ausstattung der Re- 
chenanlagen mit Zeichen sollte sich am menschlichen 
Maß orientieren). 


Diejenigen Grundsymbole der Sprache PASCAL, 
die aus mehreren Buchstaben bestehen, nennt man 
Wortsymbole. Sie sind reservierte Namen mit einer fe- 
sten Bedeutung, die nicht verändert werden kann. In 
der Literatur und in den Lehrbüchern sind sie meist 
fettgedruckt, um sie von anderen Bezeichnern zu un- 
terscheiden. Es ist also z. B. verboten, den Namen RE- 
CORD einer selbstdefinierten Größe zu geben. Aus 
technischen Gründen gibt es für einige Grundsymbole 
Ersatzdarstellungen, z. B. sind der Doppelpunkt und 
das Prozentzeichen auf vielen Anlagen im Programm- 
text gleichwertige Zeichen. Einige Operatoren dürften 
dem Leser vertraut sein. Es wird vielleicht das Zeichen 
für die Exponentation vermißt, was schon heftige Dis- 
kussionen ausgelöst hat. Der Grund für ihr Weglassen 
liegt vorallem daran, daß es eine teure Funktion wäre. 
In einem später folgenden Programm (Bild 26) wird 
eine Möglichkeit ihrer Realisation gezeigt. Dem Feh- 
len dieser und auch anderer Eigenschaften in PASCAL 
liegt der Grundsatz zugrunde, daß sich der Program- 
mierer über die Dinge, die er tut, ausdrücklich im kla- 
ren ist. (Bei der Berechnung von (-3) : kämen bei- 
spielsweise plötzlich die komplexen Zahlen ins Spiel, 
falls nicht nur positive Basiswerte potenziert werden.) 
Ein PASCAL-Programm verwendet daher auch mög- 
lichst wenig Voreinstellungen. Das kostet in der Ent- 
wicklungsphase ein Mehr an Zeit, dafür ist die War- 
tung erheblich erleichtert. 


Alle Größen, mit denen in einem Programm „‚ge- 
rechnet‘‘ wird, erhalten einen Namen; das sind Varia- 
blen, Konstanten, Typen, Prozeduren und Funktio- 
nen. Diese Bezeichner müssen bestimmten Regeln ge- 


< Bild 3. Syntax-Dia- 
gramm für einen PAS- 
CAL-Bezeichner 


Programm - Parameter 


O-@3+® 


Programmname 


Bild 4. Diagramm für die Syntax eines PASCAL-Programms 





horchen. Für die Darstellung dieser Syntax-Regeln 
haben sich die sogenannten Syntax-Diagramme be- 
stens bewährt. Man findet sie fast in allen Büchern 
über PASCAL 5, 7, 8. Wegen seiner exakten Darstel- 
lung ist 5 an dieser Stelle hervorzuheben, weil es für 
den fortgeschrittenen Programmierer die Sprachen 
ALGOL, FORTRAN und PASCAL einheitlich dar- 
stellt. Bild 3 zeigt das erste dieser Diagramme für ei- 
nen PASCAL-Bezeichner. Man liest sie entsprechend 
der Pfeilrichtung und prüft an den Verzweigungs- 
punkten, ob die untersuchte Einheit (für Bild 3 ein Be- 
zeichner) den gezeichneten Pfaden und Kästchen 
folgt. Ein Bezeichner beginnt mit einem Buchstaben, 
dem dann abwechselnd Buchstaben und Ziffern fol- 
gen können. 

So sind zulässige Namen: 

N 

GAMMA 

FAKULTAET 

KLASSIFIZIERE 

Mi 

MıB 

27,77,999 

KLASSIFIKATION 


Falsch wären folgende Bezeichner: 

K.HUBER 

OTTO MAYER 

3: 
Für die Länge eines Namens gilt die Empfehlung, daß 
mindestens die ersten acht Zeichen vom Compiler als 
relevant angesehen werden. Die Wahl eines Namens 
soll sich an der leichten Lesbarkeit des Programmes 
und nicht aan einer schnellen „Schreibbarkeit‘ orientie- 
ren. Da die meisten Compiler nur eine beschränkte 
Anzahl der ersten Zeichen eines Bezeichners auswer- 
ten (und den Rest wegwerfen), muß man die Namen so 
wählen, daß keine Verwechslungen auftreten. Für ei- 
nen (Schmalspur-)Compiler, der nur acht Zeichen ei- 
nes Namens beachtet, wären KLASSIFIERE und 
KLASSIFIKATION ein Bezeichner KLASSIFI. 


3.2 Der Aufbau eines PASCAL-Programms 


Ein PASCAL-Programm besteht grundsätzlich aus 
zwei Teilen: einem Programmkopf und einem Block. 
Das entsprechende Syntax-Diagramm zeigt Bild 4. 
Nach dem Wortsymbol ‚program‘ folgt ein Pro- 
grammname; zwei Namen müssen durch ein Leerzei- 
chen getrennt sein — es dürfen natürlich auch mehrere 
sein oder ein bzw. mehrere Zeichenwechsel (für das 
Leerzeichen steht in Tabelle 1 das Symbol „.“). 

Ein Block ist, wie Bild 5 zeigt, ein umfangreiches 
Gebilde. Nacheinander folgen die Vereinbarungsteile 
für Marken, Konstanten, Typen, Variablen, Prozedu- 


ren, Funktionen und schließlich der Anweisungsteil 
mit begin und end geklammert. Wenn man die Pfade 
verfolgt, sieht man, daß es auch Blöcke ohne jegliche 
Vereinbarungen geben kann. Nehmen wir schließlich 
noch die sogenannte leere Anweisung vorweg, so 
können wir bereits ein einfaches und lauffähiges Pro- 
gramm schreiben (Bild 6). Als Programm-Parameter 
nach dem Namen PRIMITIV dient OUTPUT. output 
— ein Standardname — bezeichnet eine sogenannte 
Text-Datei, die neben dem Zeichensatz der Anlage die 
Symbole für den Zeilen- und Seitenwechsel enthält. In 
dieser Datei erfolgt normalerweise die Programmaus- 
gabe, daher ist die Angabe von output in der Regel 
vorgeschrieben. Entsprechend dazu gibt es für die 
Eingabe die Standarddatei input. Beide Parameter rei- 
chen vorerst für die Ein- und Ausgabe der Daten. Mit 
der Aufzählung von OUTPUT ist beim Programmlauf 
die Eröffnung einer Datei mit gleichem Namen ver- 
bunden. Trotz der Kürze von PRIMITIV geschieht also 
etwas, da aber kein Zeichen ausgegeben wird, bleibt 
die Datei output leer. 


Nach Einführung der Standardprozedur ‚write‘ 
kann man zur Demonstration ein Programm schrei- 
ben, das einen arithmetischen Ausdruck zweier Zah- 
len berechnet und das Resultat ausdruckt. Was mit 
WRITE ausgegeben werden soll, steht als Parameter 
zwischen den runden Klammern. Es kann eine Kon- 
stante, ein Ausdruck, der Wert einer Variablen, ein 
Funktionswert und auch direkt eine Zahl (Zeichen, 
logischer Wert, Zeichenkette) sein. Bild 7 zeigt das 
Programm mit dem ausgedruckten Ergebnis. Für die 
Berechnung selbst braucht man natürlich keinen 
Computer zu bemühen. 


Von diesen einfachen Programmen abgesehen sind 
für Berechnungen veränderliche Größen notwendig. 


Bild 5. 


Syntax- 
Diagramm 
für einen 
Block 
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Programm 


PROGRAM PRIMITIV(OUTPUT); 


BEGIN 
END. 





Ausgabe (output) 


SEELEN 


Bild 6. Beispiel für ein minimales PASCAL-Programm; es enthält 
keine Vereinbarungen, aber eine (sogenannte) leere Anweisung 


Programm 


PROGRAM UNMITTELBAR (OUTPUT); 


BEGIN 
WRITE(533 + 


186) 
{UNMITTELBAR}. 


END 





Ausgabe (output) 
719 


Bild 7. Ein einfaches Programm ohne Vereinbarungsteil, das einen 
arithmetischen Ausdruck mit ganzen Zahlen berechnet und aus- 
druckt. Da keine Zahlen eingegeben werden, ergibt sich bei jedem 
Programmlauf das gleiche Ergebnis. Entsprechendes wäre auch für 
reellwertige und logische Ausdrücke möglich 


Als erstes soll daher von dem Vereinbarungsteil die 
Variablen-Vereinbarung betrachtet werden (Bild 8). 
Hier erhalten nach dem Wortsymbol ‚var‘ alle Varia- 
blen einen Namen, dem nach einem Doppelpunkt eine 
Typenangabe erfolgt. Die volle Darstellung für einen 
Typ wird in Bild 16 (s. u.) beschrieben. Zunächst sol- 
len nur die einfachen Datentypen benutzt werden. 


3.3 Einfache Datentypen 


Vordefiniert sind als Bezeichner für die Standard- 


typen: 
integer für ganze Zahlen 
real für Gleitkommazahlen 
boolean für logische Variable 
char für Zeichen 


Die Zahlenbereiche für ‚integer‘‘ und ‚real‘ hängen 
stark von der Bitlänge des Rechners ab; durch spe- 
zielle Routinen lassen sich bei Bedarf höhere Genau- 
igkeiten erzielen. Die Anzahl der Zeichen des Daten- 
typs „char‘‘ wird von dem Zeichenvorrat der Anlage 
bestimmt, der natürlich über den Zeichensatz von 
PASCAL (Tabelle 1) hinausgehen kann. Der Typ 
„boolean‘“ besitzt zwei logische Werte: ‚false‘ und 
„true“. Beides sind Standardnamen (Tabelle 2, s. u.) 


Varıablenname 


m 
WE 


Bild 8. Syntax-Diagramm für die Vereinbarung von Va- 
riablen. Mehrere Variable vom gleichen Typ werden mit 
Kommas getrennt. Zu beachten ist, daß vor dem Typbe- 


zeichner (z. B. integer) ein Doppelpunkt steht 
Konstantenname 


"Seo, 


Bild 10. Syntax-Diagramm für die Vereinbarung von 
Konstanten 





und keine Wortsymbole. Es wäre also möglich, diese 
Namen - wie schon „boolean“, „integer“, „real‘‘ und 
„char“ — in einem völlig anderen Zusammenhang zu 
verwenden! Auch die ganzen und reellen Zahlen 
(exakter: die Teilmengen davon) gehorchen bestimm- 
ten Regeln; siehe dazu die Syntax-Diagramme in Bild 
9a und 9b. Beispiele für reelle Zahlen sind 


0.02672 +13.81 509 23E-7 
(E bezeichnet den Zehnerexponenten). 


Die Werte des Datentyps char werden mit Anfüh- 
rungszeichen eingeklammert: 


"A' ER 1° 
Mehrere Zeichen aufeinanderfolgend bilden eine Zei- 
chenkette (string): 


‘PASCAL' 
‘DIES IST AUCH EINE ZEICHENKETTE‘ 


so 


‘K. HUBER‘ 


Eine Zeichenkette ist also von einem Namen völlig 
verschieden. Sie besitzt wie eine Zahl einen Wert. der 
manipuliert werden kann. 


Doch nochmal zurück zu der Variablen-Vereinba- 
rung. Mit den nun bekannten Typen kann man voll- 
ständige Vereinbarungen hinschreiben: 


VAR ANTWORT:BOOLEAN; 
oder 
VAR ZEIT:REAL; u. a 


Wie an den nachfolgenden Programmbeispielen zu 
sehen ist, schaffen größere Abstände zwischen den 
Namen und den Sonderzeichen mehr Übersichtlich- 
keit. Die Konstanten-Vereinbarung dient zur Defini- 
tion konstanter Größen (Bild 10); wie z. B. für die Zahl 
rn, die Lichtgeschwindigkeit c. Als „Konstante“ kom- 
men ganze, reelle Zahlen, Zeichen, Zeichenketten und 
die logischen Werte in Betracht. Beispiele: 


CONST PI = 3.1415926; JMAX = 100; 
G = 2.9979E+8 (* inm/s *); 
FRAGE = ‘WOLLEN SIE WEITERMACHEN? 


Die rechte Seite der Definition — sie ähnelt der Wert- 
zuweisung —, bestimmt den Datentyp. Im Unterschied 
zu den Variablen kann der Wert einer Konstanten im 


Bild 9. Die Syntax-Diagramme für eine vorzeichenlose ganze 
Zahl (9a) und für eine vorzeichenlose Zahl (9b). Durch ein vor- 
ausgehendes Vorzeichen erhält man die ganzen bzw. reellen 
Zahlen (integer bzw. real); kein Vorzeichen bedeutet wie ge- 
wohnt ein Pluszeichen 





Programm 


PROGRAM VERZOEGERUNGSGLIED(OUTPUT); 
{ Reaktion auf einen Einheitssprung; 
Version A ohne externe Eingabe |} 


CoNsT 
ZEITKONSTANTE = 5.0 { sec }; 
VAR 


ZEIT, 
AUSGANG: REAL; 
BEGIN 

ZEIT 

AUSGANG : 

WRITE (AUSGANG) 
END {VERZOEGERUNGSGLIED}. 


EXP(- ZEIT / ZEITKONSTANTE); 


Bild 11. Programm zur Berechnung der Übergangsfunktion eines 
Verzögerungsgliedes 1. Ordnung 


Ausgabe (output) 


9.5021293163214E-001 


Bild 11a. Berechnung von 1-e” "" fürt=15 und Ausgabe des reellen 
Ergebnisses 


Programm 


PROGRAM VERZOEGERUNGSGLIED(OUTPUT); 
{ Reaktion auf einen Einheitssprung; 

Version B ohne externe Eingabe, 

aber mit formattierter Ausgabe } 


CONST 
ZEITKONSTANTE = 5.0 { sec }; 
VAR 
ZEIT, 
AUSGANG: REAL; 
BEGIN 
ZEIT se 15.405 
AUSGANG := 1.0 - 
WRITE(AUSGANG: 12) 
END {VERZOEGERUNGSGLIED}. 


EXP(- ZEIT / ZEITKONSTANTE); 


Ausgabe (output) 


9.502E-001 


Bild 11b. Durch „AUSGANG: 12“ in der WRITE-Anweisung ist die 
Länge der Ausgabe auf 12 Zeichen formatiert 


Eingabe (input) 


Programm 


PROGRAM VERZOEGERUNGSGLIED(INPUT, OUTPUT); 
{ Reaktion auf einen Einheitssprung; 
Version C mit externer Eingabe } 


ZEITKONSTANTE = 5.0 |{ sec }; 


ZEIT, 


AUSGANG: REAL; 


EGIN 
READ(ZEIT); 
AUSGANG := 
WRITELN(' ZEIT= 


1.0 - EXP(- ZEIT / ZEITKONSTANTE); 
'„ ZEIT: 12: 4); 
WRITELN(' AUSGANGSGROESSE=', AUSGANG: 12: 4) 


END {VERZOEGERUNGSGLIED}. 





Ausgabe (output) 


ZEIT= 
AUSGANGSGROESSE= 


25.0000 
0.9933 


Bild 11c. Hier wird nun der Wert für t durch READI(ZEIT) eingele- 
sen; es erfolgt keine Prüfung, ob t= 0 ist (nur dafür gilt die Berech- 
nung!). Die Ausgabe wurde zusätzlich verbessert: Zur Erläuterung 
werden Zeichenketten mit ausgedruckt und das Format der reellen 
Zahlen von der Gleit- auf die Festpunktdarstellung umgeschaltet. 
writeln gibt wie write die Parameter in den runden Klammern aus, 
und bewirkt zusätzlich einen Zeilenwechsel 








gesamten Programm nicht verändert werden. Bis auf 
diese gewollte Eigenschaft kann mit einer Konstanten 
wie mit einer Variablen gleichen Typs verfahren wer- 
den. Die in der dritten Vereinbarung (C = 2.99...) auf- 
tretenden Zeichen (,,(%“, „„%)‘‘) sind die sogenannten 
Kommentarklammern, die im Programmtext ohne 
Wirkung für den Berechnungsablauf eingeschoben 
werden können. Sie dürfen aber nicht in Namen und 
Zahlen stehen. 

Das nächste Programmbeispiel (Bild 11a) enthält 
schon beide Vereinbarungsmöglichkeiten zur Be- 
rechnung der Übergangsfunktion. In der Version A 
wird der Variablen ZEIT mit dem Zeichen „=“ ein 
Wert zugewiesen. In der nächsten Zeile erfolgt die 
Berechnung mit der Exponentialfunktion (standard- 
mäßig vorhanden), wobei vor der Auswertung der 
Funktion der Ausdruck in den runden Klammern be- 
rechnet wird. AUSGANG erhält schließlich eine reelle 
Zahl zugewiesen, die mit der Standardprozedur 
write ausgegeben wird. Ohne weitere Spezifikation 
wird eine ‚„real‘‘-Größe in der vollen Genauigkeit aus- 
gedruckt. Braucht man nicht so viele Stellen, so kann 
man durch das Anhängen einer ganzen Zahl (oder ei- 
ner ganzzahligen Variable) die Länge der Zahldarstel- 
lung im Gleitpunktformat festlegen. Im Bild 10b be- 
deutet die Angabe AUSGANG : 12, daß insgesamt 
zwölf Zeichen gedruckt werden. In Bild 11c wurde 
nun das Programm dahingehend abgeändert, daß Zah- 
lenwerte zur Berechnung eingegeben werden können. 
Dazu hilft die Standardprozedur read, die hier we- 
gen derreellen Variable ZEIT eine reelle Zahl erwartet 
und den eingelesenen Wert dann ZEIT zuweist. Um 
die Eingabe zu kontrollieren, wird dieser Wert wieder 
ausgegeben. Statt write findet sich nun writeln im 
Programmtext, was zusätzlich am Ende der Ausgabe 
einen Zeilenwechsel bewirkt. In den runden Klam- 
mern befindet sich als erstes eine Zeichenkette, die 
auch zuerst ausgegeben wird. Nach einem Komma, 
das also mehrere Ausgabe-Parameter trennt, folgt die 
Variable ZEIT mit einer weiteren Formatspezifikation: 
ZEIT: 12: 4. Dies ergibt eine Festpunktzahl mit insge- 
samt zwölf Zeichen einschließlich dem Vorzeichen, 
vier Zeichen sind davon rechts vom Komma (Punkt in 
angloamerikanischer Schreibweise). Diese Pro- 
gramme enthalten schon mehrere Anweisungen, die 
durch das Semikolon — nicht durch den Zeilenwech- 
sel - getrennt sind. Vor end oder repeat braucht kein 
Semikolon zu stehen. 


Den Umgang mit den Variablen vom Typ char und 
boolean möge ein Programmbeispiel („BUCHSTA- 
BENRATEN“ in Bild 12) aufzeigen: Mit einem selbst 
vorgegebenen Buchstaben soll der gesuchte Buch- 
stabe erraten werden. Zur Vereinfachung wird der ge- 
suchte Buchstabe ins Programm gesetzt - in einer mo- 
difizierten Version könnte ein Zufallsgenerator einen 
Buchstaben auswählen. Die Variable mit dem Namen 
GESUCHT ist im Vereinbarungsteil wie GEGEBEN 
(s. u.) von dem einfachen Standard-Datentyp char. Sie 
erhält zu Beginn des Anweisungsteils den festen Wert 
‘H‘ zugewiesen. Die (einfachen) Anführungszeichen 
umklammern den Buchstaben H und unterscheiden 
dadurch ‘H‘ von einer - hier nicht — definierten Varia- 
blen H. Durch den Einlesevorgang bekommt GEGE- 
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BEN ebenso einen Wert eines Buchstabens (genau ge- 
nommen eines Zeichens aus dem gesamten Zeichen- 
vorrat; die Richtigkeit der Eingabe wird zunächst 
nicht überprüft). Da nun der Zeichenvorrat geordnet 
und insbesondere die Buchstaben alphabetisch ge- 
reiht sind, können Zeichen-Variable miteinander ver- 
glichen werden: 


GEGEBEN < GESUCHT 


istsomit ein Vergleich, ob sich der eingegebene Buch- 
stabe im Alphabet vor dem gesuchten befindet. Das 
Resultat ist ein logischer Wert (FALSE oder TRUE), 
der in unserem Beispiel der Variablen ANTWORT zu- 
gewiesen wird. An Hand der Ausgabe kann durch 
wiederholtes Probieren der gesuchte Buchstabe — na- 
türlich nicht vom Programmierer selbst — erraten wer- 
den. Durch das Anwenden weiterer PASCAL-Eigen- 
schaften wird man später das Programm verbessern 
können. (Anmerkung: Da nicht alle Codes die Buch- 
staben exakt alphabetisch ordnen (z. B. enthält der 
EBCDI-Code eine Lücke zwischen I und ]J sowie zwi- 
schen R und S), muß man auf den maschinenabhängi- 
gen Zeichenvorrat für den Typ char achten). 


3.4 Aufzählungstypen und Unterbereichstypen 


Sie gehören nach der im Bild 1 (Abschnitt 1) vorge- 
nommenen Einteilung zu den einfachen Datentypen. 
Wegen ihrer besonderen Bedeutung wird ihnen ein 
eigener Abschnitt gewidmet. Beide Formen dienen 
dazu, ein Programm 


@ lesbarer. 

@ sicherer gegenüber falschen Eingaben und 

@ verständlicher in bezug auf den verwendeten Algo- 
rithmus zu machen. 


Zunächst zu den Aufzählungstypen (auch Skalarty- 
pen genannt): ein solcher Typ wird vom Programmie- 
rer selbst definiert. In runden Klammern werden der 
Reihe nach die Werte mit Namen (Bezeichnern) aufge- 
listet. Z. B.: 


Eingabe (input) 


Programm 


PROGRAM EUCHSTABENRATEN(INPUT, 


OUTPUT); 


VAR 
GESUCHT, 
GEGEBEN: 
ANTWORT: 


CHAR; 
BOOLEAN; 


BEGIN 
GESUCHT := H 
READ (GEGEBEN); 
ANTWORT := GEGEBEN < GESUCHT; 

WRITE(' EINGEGEBENES "', GEGEBEN); 
RITLEN('" VOR DEM GESUCHTEN BUCHSTABEN ?', 
{BUCHSTABENRATEN}. 


pt 


W ANTWORT) 
END 
Ausgabe (output) 


EINGEGEBENES "C" VOR DEM GESUCHTEN BUCHSTAEEN ? 





Bild 12. Programm BUCHSTABENRATEN. Das Raten ist natürlich 
nur dann spannend, wenn der Programmtext verdeckt ist. Durch 
wiederholtes Probieren kreist man den gesuchten Buchstaben ein 
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(STOP, AUFNAHME, WIEDERGABE, LOESCHEN, 
VORLAUF, RUECKLAUF) 

(POSITIV, NEGATIV) 

(ROT, ORANGE, GELB, GRUEN, BLAU, VIOLETT) 
(MON, DIE, MIT, DON, FRE, SAM, SON) 

(KOENIG. DAME, TURM, LAEUFER, SPRINGER, 
BAUER) 


Da wir bisher nur die Variablen-Vereinbarung ken- 
nen, könnten wir eine Variable FLANKE wie folgt de- 
finieren: 


VAR FLANKE: (POSITIV, NEGATIV); 


An dieser Stelle ist es zweckmäßig, kurz innezuhalten 
und die noch öfters erscheinenden Typ-Vereinbarung 
einzuführen (Bild 13). Dazu ist das Syntax-Diagramm 
für den einfachen Datentyp (Bild 14) nachzutragen, 
das mit Bild 16 zusammen alle möglichen Typen für 
die Typ-Vereinbarung zeigt. Dem Leser bereits be- 
kannte Typ-Bezeichner sind integer, boolean, char 
und real. 


Der selbstdefinierte Typ BETRIEBSFUNKTION er- 
möglicht so, nach 


TYPE BETRIEBSFUNKTION = (STOP, AUFNAHME, 
WIEDERGABE, LOESCHEN, VORLAUF, RUECK- 
LAUF); 

VAR B1, B2: BETRIEBSFUNKTION; 


mitz. B. zwei verschiedenen Variablen B1 und B2 und 
ihren Werten von STOP bis RUECKLAUF (gewählte 
Bezeichnung für schnellen Rückwärtslauf) die Steue- 
rung eines Magnetbandgerätes zu programmieren. 
Eine Vereinbarung der Form 

VAR F1,F2,F3: (POSITIV, NEGATIV); 

ist dem folgenden hinsichtlich der Variablen F1, F2 
und F3 gleichgestellt: 


Typ -Vereinbarung 


Typ - Bezeichner 





Bild 13. Syntax-Diagramm für die Typ-Vereinbarung 


einfacher Datentyp 







Aufzählungstyp 





Unterbereichstyp 


Bild 14. Syntax-Diagramm für den einfachen Datentyp. Eine „Kon- 
stante‘‘ kann eine ganze Zahl, ein Zeichen oder ein Name eıner 
Konstanten, aber keine reelle Zahl oder eine Zeichenkette sein 


TYPE FLANKE = (POSITIV, NEGATIV); 
VAR F1, F2, F3: FLANKE; 


Es muß also nicht immer ein eigener Typ eingeführt 
werden. Dies dient mehr der Betonung und Verdeutli- 
chung, ist aber im Zusammenhang mit dem struktu- 
rierten Datentypen (s. u.) äußerst praktisch und bei 
Unterprogrammen zum Teil zwingend vorgeschrie- 
ben. Erwähnt sei, daß der Typ boolean durch die Auf- 
zählung zweier Werte zustande kommt: 

TYPE BOOLEAN = (FALSE, TRUE) 

Diese Typ-Vereinbarung (u. a.) geht also jedem PAS- 
CAL-Programm voraus, so daß boolean standardmä- 
Big zur Verfügung steht. 


Eingabe (input) 
Programm 


PROGRAM EUCHSTABENRATEN(INPUT, OGUTEUT); 


VAR 


GESUCHT, 
GEGEBEN: 'A' .. 
BOOLEAN; 


'Z'{Unterbereichstyp}; 
ANTWORT: 


BEGIN 


SUCHT := 'H'; 
READ(GEGEBEN); 
ANTWORT := GEGEBEN < GESUCHT; 
WRITE(' EINGEGEBENES "', GEGEBEN); 
WRITELN('" VOR DEM GESUCHTEN BUCHSTABEN ?', 
END: {BUCHSTABENRATEN}. 


ANTWORT) 


Ausgabe (outpout) 


PROGRAM "BUCHSTABEN" TERMINATED 
* VALUE OUT OF RANGE 
* AT LINE (6) 


BUCHSTABEN 


ANTWORT <UNDEF.> 


GESUCHT 


GEGEBEN = 


<UNDEF.> 
H 


a Bild 15. BUCHSTABENRA- Ip 
TEN (2. Version). ‚4 liegt au- 
Berhalb des definierten Berei- 
ches und führt so zu einem 
Laufzeitfehler. Es erfolgt ein 
Ausdruck des Compilers für die 
aktuellen Werte der Variablen. 
Zur besseren Übersichtlichkeit 
wurden hier die Zeilen durch- 
nummeriert 


Bild 16.» 

Syntax-Diagramm für einen 
Typ. Zu den Einschränkungen 
für die Bereichsgrenzen eines 
Feldes (array) siehe 

Abschnitt 4.1 








Die Reihung in der Aufzählung der Werte ordnet 
den Aufzählungstyp. Daher sind Vergleiche (>,2,<, 
=, =) möglich. Von besonderem Nutzen sind schließ- 
lich die Standardfunktionen pred, succ und ord. Dabei 
ist pred die sogenannte Vorläufer- und succ die Nach- 
folgerfunktion. Z. B. hat nach der Anweisungsfolge 


B1:= STOP; 
B1: = SUCG(BI); 


die Variable B1 vom Typ BETRIEBSFUNKTION (s. 0.) 
den Wert AUFNAHME. Analoges gilt für beide 
Funktionen für Argumente vom Typ integer und char 
(PRED (78) = 77; SUCC('A’) = ’B’); reellwertige Para- 
meter sind dagegen nicht zugelassen. Die Funktion 
ord für die Ordnungszahl liefert eine ganze Zahl für 
Argumente von geordneten Typen (integer, char, 
boolean, selbstdefinierte Aufzählungstypen und Un- 
terbereichstypen). Z. B. gilt 


ORD(95) = 95, ORD(94) = 94 usw. 
ORD(STOP) = 0, ORD(AUFNAHME) = 1 usw.., 


aber auch 

ORD(FALSE) = 0 und ORD(TRUE) = 1. 

Dagegen gilt ORD(’A’) = 1 nicht für jeden Computer, 
dies hängt von der jeweiligen Implementation ab. Ma- 
schinenintern sind natürlich die Werte eines Aufzäh- 
lungstyps codiert, was über die Ordnungszahl abge- 
fragt wird. Der Programmierer ist durch diese Eigen- 
schaft von PASCAL davon befreit, die Codierung 
selbst vorzunehmen und sich die Zuordnungen zu 
merken (0 sei STOP usw.). In manchen Fällen wird 
man sich tunlichst an die gewohnte Ordnung (MON 
bis SON, evtl. SON bis SAM halten). Dennoch muß ein 
Wermutstropfen im Zusammenhang mit dem Aufzäh- 
lungstyp verabreicht werden: im Gegensatz zu den 
Standard-Datentypen (integer, char. boolean undreal) 
ist es nicht möglich, Werte dieses Typs mit den Stan- 
dard-Prozeduren read, readIn, write, writeln ein- bzw. 
auszugeben. Dies ist natürlich unbequem und wird 
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durch die Vielfältigkeit der Aufzählungstypen be- 
gründet. Später wird im Abschnitt über die Fallunter- 
scheidung ein Beispiel gebracht und die Lösung die- 
ses Problems mit selbst formulierten Prozeduren auf- 
gezeigt. 


Die Unterbereichstypen — auch als Ausschnittsty- 
pen bezeichnet — ermöglichen es, den zugelassenen 


Wertbereich einzuschränken. Dies gilt für alle einfa- 
chen Datentypen, außer dem „real‘‘-Typ. 


Beispiele für ganze Zahlen: 
1901..2099 
—50..+50 


Im Programmbeispiel BUCHSTABENRATEN erfolgt 
daher präziser: 


VAR GESUCHT, GEGEBEN: ’A’.’Z'; 


dadurch wird gewährleistet, daß beide Variable nur 
Werte von Buchstaben haben können. Bei Bereichs- 
überschreitung erfolgt ein Abbruch des Programms 
und Anzeige des Fehlers, was von Anlage zu Anlage 
variiert (Bild 15). Eine unzulässige Eingabe sollte in 
der Regel durch das Programm abgefangen werden. 
Die Verwendung von Unterbereichstypen bringt auch 
dann eine zusätzliche Sicherheit, da im weiteren An- 
weisungsteil zunächst unbemerkte Bereichsüber- 
schreitungen durch fehlerhaftes Programmieren auf- 
treten können. Als Beispiel für einen Unterbereich ei- 
nes oben angegebenen Aufzählungstyps dienen die 
Werktage: 

VAR WERKTAG: MON..SAM; 

Bisher wurden bereits einige Standardnamen er- 
wähnt. Zur besseren Übersicht sind alle wesentlichen 
Standardnamen in der Tabelle 2 zusammengefaßt. Er- 
innert sei hier an die Wortsymbole bzw. an die reser- 
vierten Namen der Tabelle 1 (Abschnitt 3.1). Diese 
Gruppe der Bezeichner hat eine Schlüsselstellung in 
einem PASCAL-Programm und kann daher nichts an- 
deres bezeichnen. Z. B. kann in der Aufzählung Mon- 
tag bis Sonntag der Donnerstag nicht mit DO benannt 
werden, da DO ein Wortsymbol - im Zusammenhang 
mit den Schleifen - ist, daher: DON (DI, Mlusw. wären 
dagegen möglich). Dem Benutzer steht es aber frei, die 
Standardnamen für eigene Zwecke anders zu ver- 
wenden. Sie verlieren dann ihre übliche Bedeutung. 
Ob das immer sinnvoll ist, ist eine andere Frage. 
Denkbar wäre es beispielsweise, auf einer Anlage mit 
großer Bitlänge, den Wertbereich für integer mit 


TYPE INTEGER = -32767...+ 32767; 

so zu verkleinern, daß das Programm ohne Änderung 
auch auf einem 16-Bit-Computer mit einfacher Genau- 
igkeit läuft. In einem PASCAL-Programm finden 
sich daher drei Gruppen von Namen (bzw. Bezeich- 
nern): Wortsymbole, Standardnamen und vom Benut- 
zer gewählte Namen. 


4 Zusammengesetzte Datentypen: Felder, 
Mengen, Dateien und Verbunde 

Das Syntax-Diagramm für die zusammengesetzten 
Datentypen (auch strukturierte Datentypen genannt) 
und für den Zeiger-Typ findet der Leser in Bild 16. Im 
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folgenden sollen sie kurz mit Ausnahme des Zeiger- 
Typs (Abschnitt 7) besprochen werden. 


4.1 Felder (array) 


Die Felder sind ein klassischer Datentyp und sicher 
jedem Programmierer vertraut. So sollen nur die Be- 
sonderheiten in PASCAL erläutert werden. Der Zu- 
griff auf ein einzelnes Element erfolgt über einen (be- 
rechenbaren) Index, der wie in ALGOL in eckigen 
Klammern steht. Neben ganzzahligen Werten können 
auch Werte von Zeichen von logischen Werten und 
von Aufzählungstypen (d.h. von allen geordneten 
Typen) werden, z. B.: 


MESSWERT [1111] 
MESSWERT [2*]] 
BFELD |’S’| 
UMSATZ |MON]| usw.; 


mit ganzzahligem ] 


ZFELD |5.0| hätte eine reelle Größe zum Index und ist 
nicht erlaubt. 


Als eine schwerwiegende Einschränkung in PAS- 
CAL muß die Vereinbarung von festen Feldgrenzen 
angesehen werden, wie z.B. 


VAR HAEUFIGKEITSVEKTOR: ARRAY 10..50) OF 
INTEGER 
für ein Feld mit insgesamt 51 Elementen. 


Besonders im Falle von Bibliotheksprozeduren ist 
die starre Festlegung der Feldgrenzen unpraktisch. 
Diese Vorschrift ist daher sehr umstritten, obwohl sie 
hinsichtlich der Effektivität des Compilers auch große 
Vorteile bietet. Viele PASCAL-Übersetzer und die an- 
gestrebte Normung enthalten aus diesem Grund die 
Möglichkeit zur Vereinbarung veränderlicher Feld- 
grenzen. Abschließend sei dazu gesagt, daß diese 
enge Vorschrift den Programmierer dazu erzieht, sich 
genauere Vorstellungen über den Umgang mit Fel- 
dern zu machen. 

Wie auch die weiteren strukturierten Datentypen 
lassen sich Felder ‚packen‘. Will man oder muß man 
Speicherplatz sparen, so stellt man dem Wortsymbol 
array das packed voran. Ein typisches Beispiel dafür 
sind Felder von Zeichen, da in der Regel mehrere Zei- 
chen in einem Computerwort dargestellt werden kön- 
nen (in einem 32-Bit-Rechner hätten 4 ASCII-Zeichen 
Platz). Diese Zeichenketten sind meistens so verein- 
bart: 


CONSTN = 10; 
TYPE STRING = PACKED ARRAY |1..N| OF CHAR; 


Diese relativ kurze Zeichenkette umfaßt genau zehn 
Zeichen; benötigt man mehr Zeichen, so muß die Kon- 
stante N geändert werden. Ebenso bieten sich für die 
dichtere Informationsdarstellung Felder von logi- 
schen Werten (die janur 1 Bit benötigen) und von Un- 
terbereichstypen an. Natürlich geht dies auf Kosten 
der Rechengeschwindigkeit, da der interne Zugriff 
komplizierter wird. 


4.2 Mengen (set) 


Mengenoperationen (Vereinigung, Durchschnitt, 
Differenz, Gleichheit, Ungleichheit, Enthaltensein) 
lassen zum Teil sehr effektive und elegante Lösungen 
zu, da sie durch Bitmanipulationen (logisches ODER 
zweier Bitmuster führt zur Vereinigung usw.) einfach 
realisiert werden können. Eine Menge in PASCAL 
wird durch das Umklammern mit eckigen Klammern 
- die hier eine andere Bedeutung als die Indexklam- 
mern bei Feldern haben - dargestellt. 


[2,3,5, 7] 
für die Menge der Primzahlen zwischen 2 und 10; 


WKDBREREH 


für die Menge aller Adressierungsarten (unmittelbar, 
direkt, indiziert, erweitert, relativ, inhärent) eines Mi- 
krocomputers. Ein Assemblerbefehl mag dazu z.B. 
die Menge 

IX, EI 


umfassen. Führt die Auswertung des Operandenfel- 
des zu erweiterten Form (|E|), so ergibt der Durch- 
schnitt 


1%, El + [EI = |El. 


Da nun die Menge genau ein Element enthält, kann die 
Adresse aus dem Operanden berechnet werden. Hätte 
dagegen das Operandenfeld zu |U| geführt, dann wäre 
das Ergebnis von 


%,E*[ul= | 








die leere Menge |), die in dieser Anwendung eine 
fehlerhafte Assemblerzeile anzeigt. Ein komplettes 
Programm mit einer Menge findet der Leser später im 
Abschnitt 5.2.4 über die Schleifen. 


4.3 Dateien (file) 


Dateien — häufiger mit File bezeichnet — sind ein 
wichtiges Mittel für das sequentielle Speichern von 


Tabelle 2. Standardnamen der Programmiersprache PASCAL 


Konstanten 
WERKRRERKR 


"felech" 
"wehr" 


FALSE 
TRUE 
MAXINT 


logischer Wert 
logischer Wert 
groesste genze 


Einfache Datentypen 


DEE nn 


INTEGER 
REAL 
BOOLEAN 
CHAR 
STRING 
oder ALFA 


genze Zehl 
Gleitkommezehl 
Wahrheitswert 
Zeichen 


Zeichenkette 


Programm-Paremeter 
KRRRRRRRERRHRRRRRR 


INPUT 
OUTPUT 


Eingebedetei vom Datentyp TEXT 
Ausgebedstei vom Datentyp TEXT 


Funktionen 
WKERKERERER 


ABS 
ARCTAN 
CHR 
cos 
EOF 
EOLN 
EXP 
LN 
ODD 
ORD 
PRED 
ROUND 
SIN 
SGR 
SCRT 
SUCC 
TRUNC 


Absolutbetrsg 

Arcustangens 
Anpassungsoperetion 
Cosirus 

Abfrege auf des Dateiende 
Abfrege auf dss Zeilenende 
Exponentiel-Funktion 
nstuerlicher Logerithmus 
Abfrege suf ungereden Zahlenwert 
Anpsssungsoperstion 
Vorgsenger-Funktion 
Rundune 

Sinus 

Quedrat 

Wurzel 

Nachfolger-Funktion 
Abrunden 


Frozeduren 
KERERERRRR 


DISFOSE 
GET 

NEW 
PACK 
PAGE 
PUT 
READ 
READLN 
RESET 
REWRITE 
UNPACK 
WRITE 
WRITELN 


Ioeschen einer Zeigerverieblen 
Lesen aus einer Datei 

Erzeugen einer Zeigervarieblen 
Packen von Feldern 
Seitenvorschub 
Schreiben in eine Detei 
Lesen aus einer Datei 
Ruecksetzen einer Datei zum Lesen 
Ruecksetzen einer Datei 
Entpacken von Feldern 
Schreiben in eine Datei 
Schreiben in eine Datei 


Lesen zus einer Datei mit Zeilenwechsel 


zum Schreiben 


mit Zeilenwechse]l 


(enlegenspezifisch) 


-MAXINT .. +MAXINT 

(enlegenspezifisch) 

(FALSE, TRUE) 

(der Zeichenvorrat ist snlagenspezifisch) 


(die Laenge ist enlegenspezifisch) 


Argument Resultst 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
FILE 
TEXT 
INTEGER 
INTEGER 
INTEGER 
INTEGER CHAR BOOLEAN Selbstdef. 
INTEGER CHAR Selbetdef. 
REAL 
INTEGER 
INTEGER REAL 
INTEGER REAL 
INTEGER CHAR Selbetdef. 
“ REAL 


REAL 
REAL 


wie Argument 
REAL 

CHAR 

REAL 
BOOLEAN 
BOOLEAN 

REAL 

REAL 
BOOLEAN 
INTEGER 

wie Argument 
INTEGER 

REAL 

wie Argument 
REAL 

wie Argument 
INTEGER 


REAL 
TEXT 


REAL 
REAL 


REAL 


FILE TEXT 


TEXT 
FILE TEXT 
TEILT 


TEXT 
FILE TEXT Hassebes} 
FILE TEXT Ausnehme: 


INPUT) 
OUTPUT) 


TEXT 
TEXT 
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Daten. Der Zugriff erfolgt in PASCAL entweder lesend 
oder schreibend. PASCAL erlaubt es nicht, während 
des Schreibens auf Lesen oder umgekehrt zu wech- 
seln. Wo dies notwendig ist, kopiert man zunächst die 
erste Datei (lesend) in eine zweite (schreibend) und 
fügt an die zweite Datei die weitere Information an. 
Vor dem ersten Zugriff müssen die Dateien in den An- 
fangszustand gebracht werden. Dazu existieren die 
Standardprozeduren 


reset (Dateiname) für zu lesende und 

rewrite (Dateiname) für zu schreibende Dateien. 

Der Zugriff erfolgt dann im allgemeinen rei mit den 
Prozeduren 

get (Dateiname) und 

put (Dateiname), 

die später näher besprochen werden. 


Die schon benutzten Standardprozeduren read, 
readIn. write und writeln sind für das bequeme Arbei- 
ten mit den sogenannten Textdateien geschaffen wor- 
den. Eine Textdatei ist als eine Datei mit Elementen 
vom Zeichentyp zeilenweise strukturiert. Vereinbart 
ist üblicherweise für die Textdatei der Datentyp TEXT 
durch TYPE TEXT = FILE OF CHAR;. 


(Anmerkung: der Datentyp char muß hier um ein Zei- 
chen für den Zeilenwechsel und evtl. Seitenvorschub 
erweitert sein, das natürlich nicht gedruckt wird, son- 
dern einen Zeilenwechsel vornimmt.) Verwendet man 
die Textdateien input und output, so braucht der Pro- 
grammierer erstens den Dateinamen in den E-/A- 
Standardprozeduren nicht angeben. (WRITE (ANT- 
WORT) und WRITE (OUTPUT,ANTWORT) sind z. B. 
gleichwertig). Zweitens sind diese beiden Dateien au- 
tomatisch initialisiert, so daß reset und rewrite entfal- 
len. input und output sind durch die Variablen- 
Vereinbarung 


VAR INPUT,OUTPUT : TEXT; 
vordefiniert. Während 
FILE OF INTEGER; 


FILE OF STRING; 
FILE OF RECORD...END 


mögliche Konstruktionen von Dateien sind, ist bei vie- 
len Compilern das syntaktisch richtige 


FILE OF FILE OF... 
(Bild 16) verboten. 


Mit den Standardfunktionen eof und eoln läßt sich 
zu jedem Zeitpunkt abfragen, ob das Dateiende (bzw. 
Zeilenende, daher ist eoln nur auf Textdateien an- 
wendbar) erreicht ist. Dies bietet eine einfache Mög- 
lichkeit der Programmierung, z. B. Daten so lange ein- 
zulesen, bis die Datei erschöpft ist. Dabei spielt es 
keine Rolle, ob keine oder viele Daten vorhanden sind. 
Auch hier brauchen die Testdateien input und output 
nicht eigens als Parameter zu erscheinen. 


4.4 Verbunde (record) 


Verbunde - von N. Wirth mit Datensatztyp bezeich- 
net — ermöglichen es, Komponenten verschiedener 
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Herkunft zu einer Struktur zusammenzuführen (zu 
verbinden). Als Beispiele seien genannt: 


komplexe Zahl: 


RECORD RE : REAL; 
IM : REAL 
END; 
(vor dem END braucht kein Strichpunkt stehen) 
Datum: 
RECORD TAG: 1:31; 
MONAT : 1..12; 
JAHR : 1901..2099 
END; 


Karteiblatt eines Foto-Archivs: 

RECORD OBJEKT : STRING; 
AUFNAHME : DATUM; 
UHRZEIT : 2; 
BILDNR : INTEGER; 
BLENDE : REAL; 
ENTFERNUNG : REAL; 
FILM : (FIRMA1....) 

END; 


Das letzte Beispiel zeigt, daß in einem Verbund ein 
weiterer (hier ein Verbund für das Datum) stehen darf. 


Eine Kartei kann entweder als ein Feld (ARRAY 
1..N| OF RECORD ...... END), als Datei (FILE OF ...) 
oder durch eine mit Zeigern verkettete Struktur kon- 
struiert werden. Im letzteren Fall verweist ein „Kar- 
teiblatt‘‘ auf ein weiteres. 


Das nächste Programmbeispiel berechnet das Pro- 
dukt zweier komplexer Zahlen (Bild 17). Nach dem 
Einlesen (abwechselnd Real- und Imaginärteil für jede 
Zahl) erfolgt die Berechnung des Produktes und an- 
schließend die Ausgabe, wobei auf eine komfortablere 


Eingabe (input) 


0.4 0.5 2.0 


Programm 


PROGRAM KOMPLEXEMULTIPLIKATION(INPUT, OUTPUT); 


TYPE 


KOMPLEX = RECORD 


REAL; 
REAL 


PRODUKT, 
21, 
z2: KOMPLEX; 


Z2.RE, 


GIN 
READ(Z1.RE, 
PRODUKT.RE := 
PRODUKT.IM := Z1.IM * Z2.R + 


z1.IM, 
Z1.RE * 


22.IM); 
22. = - 


INACINAERTEIL: 5 


WRITELN(' REALTEIL 
FRODUKT. IM: 12) 


WRITELN(PRODUKT.RE: 12, es 
END [KOMPLEXEMULTIPLIKATION}. 





Ausgabe (output) 


REALTEIL 
-2.500E-001 


IMAGINAERTEIL 
2.400E+000 


Bild 17. Programm KOMPLEXE MULTIPLIKATION. Z, = 1,1 + j0, 
4, Z, = 0,5 + j2 werden eingegeben und führen zu dem ausgedruck- 
ten Ergebnis. Der Zugriff auf eine Komponente (RE oder IM) erfolgt 
durch das Anhängen eines Punktes an den Variablennamen (Z 1, 
7.2, PRODUKT) 


Darstellung verzichtet wurde. Der Zugriff auf eine 
Komponente der Variablen vom Typ KOMPLEX er- 
folgt über das Anhängen eines Punktes an den Varia- 
blennamen und den Bezeichner für die Komponente 
(RE oder IM im Beispiel des Verbundes KOMPLEX). 

In manchen Fällen hängt die Struktur eines Ver- 
bundes von den Ausprägungen der Komponenten ab. 
Die Darstellung komplexer Zahlen kann nicht nur in 
kartesischen, sondern auch in Polar-Koordinaten er- 
folgen. Nach den Vereinbarungen 


TYPE KOMPLEX2 = RECORD 
CASE KOORD : CHAR OF 
’K’: (RE,IM : REAL); 
'’P’:(BETRAG,WINKEL : REAL) 
END; 

VAR C: KOMPLEX2; 

kann nach der Anweisung C.KOORD := ’P’ auf Be- 
trag und Phase durch C.BETRAG und C.WINKEL zu- 
gegriffen werden. Diese Form eines Verbundes bedarf 
einiger Aufmerksamkeit. Es wird dem Leser daher zu 
diesem Punkt das Studium eines Lehrbuches empfoh- 
len. 

In der ELEKTRONIK wurde kürzlich ein Komfort- 
Programm zum Rechnen mit komplexeren Zahlen 
veröffentlicht |11|. Die dort gewählte Darstellung läßt 
sich in PASCAL wie folgt vereinbaren: 


TYPE KOMPLEX4 = RECORD 
RE, 


BE, 

WI : REAL 

END; 
VARX, Y, Z,Q: KOMPLEX4; 
Jede komplexe Zahl führt so vier Komponenten (Real-, 
Imaginärteil, Betrag und Winkel) mit sich. Wie in je- 
nem Aufsatz gezeigt, bestimmen bis auf einen Sonder- 
fall zwei dieser Komponenten eine Zahl. Die Opera- 
tionen werden zweckmäßigerweise als Prozeduren 
formuliert. 


Komponentenname 


Komponentenname 





Auswahlmarke 





In Bild 18 und 19 sind die Syntax-Diagramme für 
den Verbundtyp und zur Vervollständigung für die 
Variable zu finden. 


5 Anweisungen 


Von den Möglichkeiten, die PASCAL für die Steue- 
rung des Programmflusses bietet, kennt der Leser be- 
reits die Wertzuweisung, die Prozeduranweisung und 
die (kleine, aber nicht bedeutungslose) leere Anwei- 
sung. Für die graphischen Mittel, die Aktionen eines 
Programms darzustellen, sei auf den ELEKTRONIK- 
Aufsatz | 14, verwiesen. Dort finden sich die schon län- 
ger eingeführten Flußdiagramme und die neueren 
Struktogramme. Die Syntax-Diagramme zu diesem 
Abschnitt befinden sich in Bild 20a (Anweisung) und 
20b (strukturierte Anweisung); das umfangreiche 
Diagramm für einen Ausdruck zeigt Bild 21. 


5.1 Einfache Anweisungen 
5.1.1 Wertzuweisung 

In den bisherigen Programmbeispielen findet der 
Leser die Wertzuweisungen 


ZEIT := 15.0 für die reelle Variable ZEIT, 
GESUCHT := 'H’ für die Zeichen-Variable 


GESUCHT. 
Wie bei anderen mit ALGOL verwandten Sprachen 
gibt es den sogenannten Zuweisungsoperator (,:="), 


der vom Gleichheitszeichen (,=‘‘) zu unterscheiden 
ist. Auf der rechten Seite steht im allgemeinen ein 
Ausdruck. 


Auf die Vielfalt eines Ausdruckes kann hier leider 
nicht näher eingegangen werden. Dem Leser wird 
empfohlen, sich an Hand der bereits erwähnten Lehr- 
bücher näher zu informieren. In den folgenden Bei- 
spielen sind einige wichtige Ausdrücke enthalten und 
werden dort besprochen. 


Varıable vom einfachen Datentyp 


Feld -Varıable 


Verbund-Varıable 


Komponentenname 


® 


Dateı-oder Zeiger-Variable 








Bild 19. Syntax-Diagramm für eine Variable 


Bild 18. Syntax-Diagramm für die Komponentenli- 
ste eines Verbundes. Der mit dem Wortsymbol case 
eingeleitete Teil beschreibt den sogenannten Varian- 
tenteil 
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Die höchste Priorität hat der Operator not, dann fol- 
gen die Multiplikationsoperatoren ( ,/, div, mod, 
and), dann die Additionsoperatoren (+, —, or) und 
schließlich die Vergleichsoperatoren (=,<>,<,<=, 
>=, >, in). Durch Klammerung läßt sich wie üblich 
eine andere Reihenfolge der Auswertung des Aus- 
drucks erzwingen. Wie man sieht, existieren zwei Di- 
visionszeichen: div gilt für ganzzahlige Operanden 
und führt zu einem ganzzahligen Resultat (z. B. ergibt 
19 div 5 den Wert 3, der Rest 4 wird weggeworfen). 
Mit dem anderen Zeichen (,,/‘‘) erhält man immer eine 
reelle Zahl als Ergebnis — auch bei Operanden vom 
Typ integer. Ist M als eine ‚„integer‘-Größe verein- 
bart (Y real oder integer), so ist der Ausdruck 


M'= Y/56 


syntaktisch falsch, da rechts ein reelles Resultat auf- 
tritt, das einer ganzzahligen Variablen zugewiesen 
werden soll. Andere Sprachen lösen dieses Problem 
durch automatische Rundung. PASCAL ist hier (und 
anderswo) ein strenger Lehrmeister, der den Pro- 
grammierer zwingt, die gewählten Datentypen streng 
einzuhalten. Der Ausdruck lautet dann richtig 


M: 
M: 


round (Y/56) oder 
trunc (Y/56) 


Il 


falls entweder gerundet oder abgerundet werden soll. 


5.1.2 Prozeduranweisung 


Die Prozeduranweisung - ähnlich dem CALL-Auf- 
rufin FORTRAN und BASIC - dient zum Aufruf einer 
Folge von Anweisungen, die im vorderen Teil des 
Programms vereinbart wurden. Der Aufruf erfolgt 
durch die Nennung des Prozedurnamens, dem u.U. 
Parameter in runden Klammern folgen. Wie jede an- 
dere Anweisung wird sie von der nächsten durch ein 
‚”‘ getrennt. Die Prozeduranweisung ist von einem 
Funktionsaufruf verschieden; letzteres liefert einen 
Wert für einen einfachen Datentyp. Dem Leser sind in 
Gestalt der Standardprozeduren WRITE und READ 
bereits Beispiele für Prozeduranweisungen begegnet. 
Wegen ihrer Wichtigkeit werden Prozeduren und 
Funktionen in Abschnitt 6 ausführlich beschrieben. 


5.1.3 Sprunganweisung 


Auch PASCAL kennt den unbedingten Sprung mit 
goto. Die Existenz einer Sprunganweisung ist natür- 
lich umstritten, da sie oft dem erklärten Ziel, Pro- 
gramme übersichtlich zu gestalten, zuwiderläuft. So 
ist die Anwendung von goto in PASCAL durch harte 
Bestimmungen erschwert. Sprungziele sind die soge- 
nannten Marken, für die nur vorzeichenlose ganze 
Zahlen (meist zwischen 0 und 9999) zugelassen sind. 
Sie müssen im Marken-Vereinbarungsteil (ohne Syn- 
tax-Diagramm) ausdrücklich definiert werden. Aus 
einem Block (z. B. Prozedur) darf herausgesprungen, 
nicht aber hineingesprungen werden. Es sei empfoh- 
len, die Sprunganweisung nur selten zu verwenden 
(daher hier auch kein Programmbeispiel). 
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5.1.4 Leere Anweisung 


Die leere Anweisung ist eine syntaktische Hilfskon- 
struktion, um auch das Aufeinanderfolgen von ...; ;... 
oder von ...;end ... in einem PASCAL-Programm zuzu- 
lassen. Letzteres tritt dann auf, wenn der Programmie- 
rer automatisch hinter jeder Anweisung ein „,;“ setzt. 
Ähnlich wie ein Kommentar hat die leere Anweisung 
während des Programmlaufes keine Wirkung. 





Wertzuweisung 





Sprunganweısung 











# Leere Anweisung 








Bild 20a. Syntax-Diagramm für die Anweisung. Zur Vervollständi- 
gung ist der Pfad mit der Marke eingezeichnet 











ar a 




















je 


Bild 20b. Syntax-Diagramm für die strukturierte Anweisung 


5.2 Strukturierte Anweisungen 
5.2.1 Anweisungssequenz 


Eine Folge von Anweisungen, die eine Einheit bil- 
den soll, wird mit begin und end eingeklammert. 
Diese Zusammenfassung tritt oft bei Schleifen auf und 
wird später in den Programmbeispielen häufig vor- 
kommen. Nach außen wirkt die Anweisungssequenz 
wieeine Anweisung. In der Literatur wird sieauch mit 
Verbundanweisung bezeichnet. Um hier Verwechs- 
lungen mit den Verbunden (,record‘“-Typen) zu ver- 
meiden, wurde die Bezeichnung wie in |6| gewählt. 


5.2.2 Bedingte Verzweigung 


Die von einer Bedingung abhängige Verzweigungin 
einer Anweisungsfolge ist ein klassisches Program- 
mierelement. PASCAL kennt die einseitige und die 
zweiseitige Verzweigung, die mit dem Wortsymbol if 
eingeleitet werden. Nach einem logischen Ausdruck, 

















0 





u, 
En Zu a FE — 
-@© 
©- 


Term 


[far | =7 B 
Multiplikationsoperatoren 


b 











der ausgewertet zu den Konstanten TRUE oder FALSE 
führt, erfolgt nach then eine Anweisung. Im Falle der 
einseitigen bedingten Verzweigung wird dieser Teil 
ausgeführt, wenn TRUE zutraf. Falls FALSE zutraf, 
wird er nicht ausgeführt und sofort mit der nächsten 
Anweisung der Programmablauf fortgesetzt. Bei der 
zweiseitigen Verzweigung wird im Unterschied dazu 
der Programmteil nach dem Wortsymbol else abgear- 
beitet. Hier sei auf die wichtige syntaktische Regel 
hingewiesen, daß vor einem else kein ‚,;‘‘ stehen darf. 


Als Beispiel möge nochmals die Berechnung der 
Übergangsfunktion dienen, für die im ersten Teil be- 
reits ein Programm angegeben wurde (Bild 11c). Bei 
seiner Benutzung mußte beachtet werden, daß nur 
Werte für t20 eingegeben wurden. Negative Werte 
führten zu einem Berechnungsfehler, da für ein Ver- 
zögerungsglied erster Ordnung die Übergangsfunk- 
tion 


einfacher Ausdruck 





Additionsoperatoren 











Ausdruck 


u 





Vergleichsoperatoren 








Bild 21. Syntax-Diagramme für einen Faktor (a), Term 
(b), einfachen Ausdruck (c) und für einen Ausdruck 
(d). Da die Zeichen =, S, 2 nicht in jedem Zeichen- 
vorrat einer Anlage enthalten sind, wurden die zu- 
sammengesetzten Formen <>, <= und >= als Dar- 
stellung definiert 
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t=0 
t<o 


ze 1-e 
’-o 


gilt. Die zweiseitige bedingte Verzweigung ist dafür 
die korrekte Form der Ablaufsteuerung. Das so geän- 
derte Programm VERZOEGERUNGSGLIED zeigt Bild 
22. In ihrer Wirkung diesem Programm gleichwertig 
wäre auch folgendes Teilstück mit der einseitigen be- 
dingten Verzweigung: 


READ (ZEIT); 
IF ZEIT<0.0 THEN ZEIT: =0.0; 
AUSGANG: = 1.0 - EXP(-ZEIT/ZEITKONSTANTE); 


Hier wird durch die „if“-Anweisung (in einer Reihe 
von Literaturstellen werden die verschiedenen An- 
weisungsformen mit dem entsprechenden Wortsym- 
bol bezeichnet) sichergestellt, daß positive Werte und 
Null für die Zeit in die Berechnung eingehen. Der Pro- 
grammierstilin Bild 22 ist jedoch klarer und eindeuti- 
ger; er ist daher vorzuziehen. 


5.2.3 Schleifen 
5.2.3.1 Laufanweisung 

Schleifen dienen zur wiederholten Ausführung von 
einer oder mehreren Anweisungen. Ist die Anzahl der 
Durchläufe bekannt, so wird man dazu in der Regel die 
Laufanweisung heranziehen. Wenn nicht, zieht man 
eine der beiden bedingten Schleifen — „repeat‘‘-An- 
weisung, „while“-Anweisung — heran. Eine Lösung 
mit goto ist in PASCAL indiskutabel. 


Charakteristisch für die Laufanweisung (bzw. 
„for“-Anweisung) ist, daß die Laufvariable eine ver- 
einbarte Variable eines einfachen Datentyps mit Aus- 
nahme des ‚‚real‘-Typs sein kann. Das Verbot von 


Eingabe (input) 


Programm 


PROGRAM VERZOEGERUNGSGLIED(INPUT, OUTPUT); 
{ REAKTION AUF EINEN EINHEITS-SPRUNG } 


CONST 
{ SEC }; 


ZEITKONSTANTE = 5.0 


VAR 
ZEIT, 
AUSGANG: REAL; 
BEGIN 
READ(ZEIT); 
ZEIT. >= 0,0 
ı= 1.0 - EXP(- ZEIT / ZEITKONSTANTE) 
= 0.0; 
WRITELN(' ZEIT= un 
WRITELN(' AUSGANGSGROESSE=', 
END {VERZOEGERUNGSGLIED}|. 


ZEIT: 12: 4); 
AUSGANG: 12: 4) 


Ausgabe (output) 


ZEIT= 


-5.0000 
AUSGANGSGROESSE= {0} 


Bild 22. Programm VERZOEGERUNGSGLIED. Diese Version be- 
rücksichtigt auch negative Zahlenwerte für die Zeit 
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7 
Bild 23. Einseitig eingespannter Balken mit punktför- 
miger Belastung in x=0 


„real‘‘-Größen hat natürlich Widerspruch hervorge- 
rufen. Diese Beschränkung wurde eingeführt, weil die 
statistisch am häufigsten verwendete Schrittweite 1 
ist und die Laufanweisung dadurch einfacher wird. 
Das ist weithin akzeptiert. Auf der anderen Seite ist es 
aber in PASCAL möglich, die Laufanweisung mit an- 
deren als ‚integer“-Variablen zu formulieren, z. B.: 
FOR ZEICHEN:=’A’ TO ’Z’ DO... ; 
FOR B1:=STOP TO VORLAUF DO... ; 
Dabei sei ZEICHEN vom Datentyp char und B1 von 
dem oben definierten Aufzählungstyp BETRIEBS- 
FUNKTION. 

Im ersten Programmbeispiel mit der ‚„for‘-Anwei- 
sung soll eine Tabelle für die Biegelinie eines einseitig 


Eingabe (input) 


10 2.06EH11 0.4 0.03 


Programm 


PROGRAM BIEGELINIE(INFUT, OUTPUT); 


CONST 


= 10; 
= 3.14159265359; 
= 1.0E+6 { Y in Mikrometer }; 


Lsenge des Ealkenrs } 
Kreft } 
Elsstizitaetemodul } 
Treegheitsmoment 
Durchmesser 

X, 
DELTA, { Schrittweite fuer "x" } 
3 
FAKTOR: 
MUE: 


REAL; 
INTEGER; 


BEGIN 

{ Eingabe der mechanischen Groessen in den 
Grundeirheiten Newton und Meter } 

READ(F, E, L, D); 
d = BR ED k HM Z/ 
PAKTOR. . 22 EI #7 U MID 
DELTA := L / MUEMAX; 
a NR. 


0; 


64. 
(3.0% E 
x 
WRITELN(' METER 


FOR MUE := O TO MUEMAX DO 
BEGIN 
X . 


Ei); 
MIKROMETER'); 


:= DELTA * 
Y := YSKAL * 
Pe 2 BE 
WRITELN(MUE, X: 12: 
END {FOR} 
END {BIEGELINIE}. 


MUE; 
FAKTOR 





= 
Es} 


26. 
22. 
18. 
14. 
11. 





6) 
1 
2 
3 
4 
5 
6 
Bi 
8 
9 
o 


OoOO0O0000000 


Bild 24. Programm BIEGELINIE mit Eingabe und Ausgabe der Bie- 
gung y in Abhängigkeit vom x 


eingespannten Trägers erstellt werden. Als Erläute- 
rung diene Bild 23 mit der Gleichung für die Biegeli- 
nie aus 15). Das Programm BIEGELINIE (Bild 24) be- 
rechnet nach der Eingabe der Größen für die Kraft 
(F=10 N), für den Elastizitätsmodul von Stahl St 38 
und für Länge und Durchmesser des Trägers 
(l = 0,4 m, D = 0,03 m) das Trägheitsmoment ], den 
Faktor F : 1?/3EJ und die reelle Schrittweite Ax. Die 
Laufvariable ist ganzzahlig. x berechnet sich dann in 
der Anweisungssequenz aus Ax ' u, so daß x von O bis 
x=] läuft. Die Berechnung von y erfordert einen Aus- 
druck, der zwei Zeilen umfaßt. 

Durch die Ausgabe-Prozedur WRITELN werden zei- 
lenweise die Schrittnummer u, x und y formatiert aus- 
gegeben. Zu beachten ist die Richtung von x und y 
nach Bild 23. Dieses Beispiel macht auch deutlich, 
daß mit großen und kleinen Buchstaben für Bezeich- 
ner eine deutlichere Namensgebung möglich wäre 
(z. B. statt D für den Durchmesser). Eine Erweiterung 
des Programmes für verschiedene Querschnitte wäre 
am besten durch einen Verbundtyp für den Balken be- 
schreibbar: 


TYPE 
FLAECHE=(KREIS,RECHTECK....); 
BALKEN =RECORD 
LAENGE : REAL; 
CASE FORM : FLAECHE OF 
KREIS : (D : REAL); 
RECHTECK : (SEITE 1, 
SEITE 2 : REAL); 


END {BALKEN}: 


In dem Verbund BALKEN (siehe dazu Bild 18) leitet 
das Wortsymbol case den sogenannten Variantenteil 
ein. Die Pünktchen zeigen an, daß hier weitere Flä- 
chenformen definiert werden können. Entsprechend 
dieser Datenstruktur wird dann im Anweisungsteil 
das jeweilige Flächenträgheitsmoment mit der noch 
zu besprechenden Auswahlanweisung (5.2.4) be- 
stimmt. 


Das nächste Beispiel demonstriert wieder die Lauf- 
anweisung zur Erzeugung einer binären Pseudo-Zu- 
fallsfolge. Pseudo-Rauschsignale aus einer Anord- 
nung, wieinBild 25 gezeigt ist, werden mit Vorteil zur 
Identifikation dynamischer Systeme eingesetzt. Aus 
der reichhaltigen Literatur sei 16| herausgegriffen. 
Das Programm PSEUDOZUFALLSFOLGE (Bild 26) 
wird dazu benutzt, die elektronisch erzeugten 
Rauschsignale (Eingangssignal des experimentell un- 
tersuchten Systems) bei der Auswertung zu simulie- 
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Bild 25. Prinzipschaltbild eines Schieberegistergenera- 
tors mit den Verzögerungsgliedern T 





ren. Dies erspart die Aufzeichnung und Speicherung 
eines Kanals. Die Pseudo-Zufallsfolge ist periodisch. 
Ihr Frequenzspektrum entspricht mit guter Näherung 
einem weißen Rauschen, so daß viele Frequenzkom- 
ponenten das dynamische System anregen. 


Ein Generator für eine Pseudo-Impulsfolge besteht 
aus einem mehrstufigen Schieberegister, von dem 
zwei Abgriffe zu einem EXOR-Gatter führen. Der Aus- 
gang dieses Gatters wird mit dem ersten Register ver- 
bunden. Durch Verschiebeimpulse erhält man ein pe- 
riodisches pseudozufälliges Signal an jedem Ausgang 
von der Länge (Periode) 


Pre2' 


(N : Anzahl der Stufen). Im Programm PSEUDOZU- 
FALLSFOLGE wird das Schieberegister durch ein 
Feld von logischen Werten dargestellt. Die Rückfüh- 
rung erfolgt von der N-ten Stufe und von ABGRIFF. 
Der Ausgang des exklusiven ODER wird zunächst in 
der nullten Stufe gespeichert. Die Verschiebung ge- 
schieht durch wiederholtes Umspeichern der Feld- 
elemente. Dazu wird die zweite Form der ‚‚for“-An- 
weisung mit dem Abwärtszählen herangezogen. Im 
Programm sieht man Laufanweisungen mit einer ein- 
zelnen Anweisung und mit einer Anweisungssequenz 
(begin ... end) nach dem do-Symbol. 


5.2.3.2 „repeat‘‘-Anweisung 


An Hand der bedingten Schleife läßt sich die itera- 
tive Lösung einer transzendenten Gleichung demon- 
strieren. Seit langem kennt man in der Astronomie die 
sogenannte Kepler-Gleichung 


M=E-esinE 


(nicht zu verwechseln mit den Keplerschen Gesetzen). 
Sie wird bei der Berechnung von Planeten-(bzw. Satel- 
liten-)Bahnen benutzt. Eine geometrische Veran- 
schaulichung bringt Bild 27. Die mittlere Exzentrizität 
M ist der Winkel für den auf einer Kreisbahn mit 
gleichmäßiger Geschwindigkeit umlaufenden gedach- 
ten Himmelskörper. Dieser ist für den Zeitpunkt 
der Bahnbestimmung gegeben (M = 0,5 rad = 
28,64789°); ebenso die numerische Exzentrizität mit 
e = 0,2. Zunächst wird die Kepler-Gleichung in die 
Gestalt 


o(E) =E 


umgeformt und rechts E eingesetzt 

Q(E) = M+te  sinE. 

Beginnend mit einem Startwert für die exzentrische 
Anomalie E führt jede Berechnung zu g(E), der als 
neues E für den nächsten Schritt dient. Die Berech- 
nung wird abgebrochen, wenn die Differenz zwischen 
den alten und neuen E eine vorgegebene Schranke un- 
terschreitet. Die im Programm KEPLERGLEICHUNG 
(Bild 28) enthaltene Anweisungsfolge zwischen re- 
peat unduntil wird so lange ausgeführt, bis die Bedin- 
gung A<e den Wert TRUE erhält. Dann — und nur 
dann! — wird die Schleife verlassen und mit den ab- 
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schließenden Ausgabeanweisungen fortgefahren. Die 
Tabelle in Bild 28 enthält die Schriftnummer, den 
Wert für E und die Differenz A. Die Sinusfunktion ver- 
langt als Argument den Winkel in Radiant-Einheiten; 
für E erhält man dann die Lösung E = 0,61546817 rad 
= 35,26450°. 


Fehlerquellen beim Programmieren von Schleifen 
sind oft falsch gewählte Vorbedingungen. In diesem 
Beispiel sind dies die Größen GROSSEE und 
SCHRITTNR, die vor ‚„repeat‘‘ Werte erhalten müssen. 
Für die vorliegende Iteration sind die Konvergenzbe- 
dingungen |z. B. in 17) gut untersucht, so daß eine Be- 
endigung sicher erfolgt, wenn e nicht zu klein gewählt 
worden ist (abhängig von der Stellenzahl für die 
„real‘‘-Größen). In |17| sind auch schnellere Itera- 
tionsverfahren — wie das Verfahren nach Newton — 
ausführlich beschrieben. 


Eingabe (input) 


Programm 


PROGRAM PSEUDOZUFALLSFOLGE(INPUT, OUTPUT); 


CONST 
MAXSTUFEN = 15; 


VAR 


MUE, 
ABGRIFF, 
N: 


1..  MAXSTUFEN; 

JOTA, 
PERIODE: INTEGER; 
SR: ARRAY [0...MAXSTUFEN ]OF BOOLEAN; 


IN 
READ(N, ABGRIFF); 
Startzustend des Schieberegisters setzen |} 
FOR MUE  := 1 TON 
SR[MUE] := TRUE; 
{ Berechnung der Periodenlaenge (=N**2-1) } 
PERIODE := 1; 
FOR MUEE := 1 10 N DO 
PERIODE := PERIODE * 2; 
PERIODE := PERIODE - 1; 
{ Berechnung der binseren Zufallsfolge } 
FOR JOTA := 1 TO PERIODE DO 
BEGIN 
WRITELN(JOTA, SR[N], ORD(SR[N])); 
R 
(SR[N]_ AND NOT SR[ABGRIFF]) OR (NOT 
AND SR[AEGRIFF]); 
N DOWNTO 1 DO 
SR[MUE - 1] 


FOR MUE := 
SR[MUE] := 

END {FOR 
END {PSEUDOZUFALLSFOLGE}. 


Ausgabe (output) 


TPRUD-ODVOSNUNPUNMD— 


1 
1 

4 

1 

0 
1 

[e) 
1 

1 

0 
{0} 
1 
[0 
[) 
6) 


Bild 26. Programm PSEUDOZUFALLSFOLGE. Berechnung für ein 
vierstufiges Schieberegister (Name: SR). Die Tabelle enthält die 
Schrittnummer, den Inhalt der 4. Stufe (TRUE oder FALSE) und die 
Ordnungszahl davon. Letztere bekommt man durch Anwendung 
der Standardfunktion ord auf das Feldelsment SRIN| 
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5.2.3.3 „while“-Anweisung 


Im Unterschied zur „repeat“-Anweisung wird hier 
die Bedingung zuerst geprüft und im Falle von TRUE 
die Anweisung nach do ausgeführt. Bei FALSE wird 
die „while“-Anweisung verlassen. Während also die 
Anweisungsfolge zwischen repeat und until minde- 
stens einmal durchlaufen wird, kann es vorkommen, 
daß das Innere der Schleife while...do... überhaupt 
nicht erreicht wird. Eine elegante Möglichkeit für die 
Anwendung ist die Standardfunktion eof, die das Da- 
teiende von input abfragt. Sie liefert einen logischen 
Wert, je nachdem, ob sich in der Textdatei input noch 
weitere Daten befinden. Ist das Dateiende erreicht, so 
gilt TRUE, sonst FALSE. Durch den Operator not er- 
hält man die passende Bedingung für die „while“- 
Anweisung im Programm ABZAEHLEN (Bild 29). Das 
Programm liest Zeichen für Zeichen ein und prüft, ob 
es sich um einen Vokal handelt. Dazu wird eine Menge 
mit dem Namen VOKAL konstruiert, die die fünf Vo- 
kale des Alphabets enthält. Die Konstruktion erfolgt 
durch Aufzählen ıınd Einklammern der Zeichen 
“A‘..“U‘ und durch eine Wertzuweisung an die Varia- 
ble VOKAL. Sie mußte natürlich als eine Menge von 
den Buchstaben des Alphabetes vereinbart sein. Aus 
anlagenspezifischen Einschränkungen (eine Menge 
darf nur 59 Elemente umfassen) konnte die sinnvol- 
lere Vereinbarung 


VOKAL : SET OF CHAR; 


nicht gewählt werden. Um auch Satzzeichen usw. mit 
READI(ZEICHEN) eingeben zu können, ist ZEICHEN 
vom einfachen Datentypen char. In der bedingten 
Verzweigung wird durch den Ausdruck 


ZEICHEN IN VOKAL 


geprüft, ob das zuletzt eingegebene Zeichen als Ele- 
ment in der gebildeten Menge VOKAL enthalten ist 


Bild 27. Geometrische Veranschaulichung der 
Kepler-Gleichung M=E-e sin E. Der Himmels- 
körper K läuft (ungleichmäßig) um den Brenn- 
punkt S (z. B. die Sonne) auf einer elliptischen 
Bahn (Halbachsen a und b). K* wäre der hypothe- 
tische Ort, wenn ersich mit einer gleichmäßigen 
mittleren Geschwindigkeit um H bewegen 
würde 





(TRUE) oder nicht (FALSE). Als Eingabe für das über- 
setzte und geladene ABZAEHLEN wurde der Text des 
Programms selbst gewählt. Während die Vorbedin- 
gung für die Variable ZAEHLER durch den Program- 
mierer (ZAEHLER : = 0;) erfolgen muß, wird die Vor- 
bedingung für eof durch den Compiler vorgenommen. 
Dies geschieht automatisch für die Datei input nach 
der Angabe als Parameter im Programmkopf zu Be- 
ginn des Programmlaufes. 


5.2.4 Auswahl-Anweisung 


Eine Reihe von Problemlösungen verlangt die 
Entscheidung zwischen mehr als zwei Alternativen. 
Dafür existiert in PASCAL eine eigene Ablaufstruktur: 
die Auswahl-Anweisung mit dem einleitenden Wort- 
symbol case. Als Demonstration diene erneut das Ra- 
ten eines Buchstabens. Die im Abschnitt 3.4 vorge- 
stellten Programme (Bild 12 bzw. 15) sind sicherlich 
nicht zufriedenstellend. Das liegt daran, daß sie nur 
eine Abfrage enthalten und kein wiederholtes Raten 
bis zum Finden des Buchstabens erlauben. 


Eingabe (input) 


Programm 
PROGRAM KEFPLERGLEICHUNG(INPUT, OUTPUT); 
{ Iteretionsverfahren zur Loesung der Kepler-Gleichung |} 


CONST 


EFSILON = 1FE-11; 


VAR 


SCHRITTNR: 
KLEINEE, 
GROSSEE, 

PHI 


INTEGER; 


GROSSMM, 
DELTA: REAL; 
BEGIN 
READ(KLEINEE, GROSSMM); 
GROSSEE := GROSSMM | Startwert }; 
SCHRITINR := 0; 
REPEAT 
PHI := GROSSMM + KLEINEE * 
DELTA := ABS(PHI - GROSSEE); 
SCHRITTNR := SCHRITTNR + 1; 
GROSSEE := PHI { "E" fuer die naechste Iteretion }; 
WRITELN(SCHRITTNR, GROSSEE: 20: 12, DELTA: 20: 12); 
UNTIL DELTA < EPSILON; 
WRITELN; 
WRITELN(' LOESUNG DER KEPLER-GLEICHUNG: '); 
WRITELN(' GROSS E =", GROSSEE: 15: 11) 
END {KEPLERGLEICHUNG}. 


SIN(GROSSEE); 


Ausgabe (output) 


595885107721 
.6122485307096 
.614941766223 
«615382191501 
«615454128802 
615465876625 
615467795063 
.615468108346 
615468159505 
«6154686167859 
«615468169224 
615468169446 
.615468169483 
«615468169489 


.095885107721 
«0163631599375 
.002693459127 
.000440425278 
«000071937301 
-00001 1747823 
.000001 918438 
-000000315283 
. 000000051 159 
.000000008354 
. 000000001 364 
.000000000223 
.000000000036 
«000000000006 


PUND-O0DVOSINUTPUNND— 
OOO0O00000000000 
OOOO0O0OO000000000 


LOESUNG DER KEPLER-GLEICHUNG: 
GROSS E = 0.61546816949 





Bild 28. Programm KEPLERGLEICHUNG und deren Lösung für 
die Exzentrizität e=0,2 und M=0,5 rad. Nach 14 Iterationsschritten 


ist der Fehler (rechte Spalte) kleiner als 10”''. Die mittlere Spalte 
enthält den Winkel E 






Ein Vergleich eines Buchstabens mit einem anderen 
liefert einen von drei möglichen Werten: der bekannte 
Buchstabe ist vor oder nach dem gesuchten oder ist 
ihm gleich. Dafür bietet sich die Einführung eines 
Aufzählungstyps für die Variable POSITION mit den 
Namen VOR, GLEICH und NACH an (statt z. B. einer 
antiquierten Verschlüsselung mit 1, 2, 3). Das Pro- 
gramm BUCHSTABENRATEN (Bild 30) zeigt so außer 
den schon bekannten Elementen die Anwendung ei- 
ner Auswahl-Anweisung. Der Anweisungsteil dieses 
Programms enthält eine Bedingungsschleife (repeat 
..until...;), die so lange wiederholt wird, bis der 
Wert von POSITION gleich GLEICH ist (d. h. der logi- 
sche Ausdruck POSITION = GLEICH erhält den Wert 
TRUE). Nach dem Ausdruck eines O.K. wird das Pro- 
gramm schließlich beendet. Innerhalb der Schleife ge- 
schieht folgendes: Es wird als erstes ein Buchstabe an- 
gefordert. Dann wird durch die bedingte Verzweigung 
(IF GEGEBEN = GESUCHT...) die Position des einge- 
gebenen Buchstabens im Vergleich zum „gesuchten“ 
(P) ermittelt. Die erste Ausgabeanweisung druckt den 
eingegebenen Buchstaben mit einem Text aus. Der 
mittlere Teil der Ausgabe ist von dem Wert der Varia- 
blen POSITION abhängig. Dazu wird die Auswahlan- 
weisung herangezogen. Je nach ihrem Wert wird eine 
der drei ‚„write“‘-Anweisungen ausgeführt. Daß in- 
nerhalb der Anführungszeichen für den anzugeben- 
den Klartext (z.B. „GLEICH‘“) wieder das Wort 
GLEICH vorkommt, möge den Leser nicht verwirren. 
Nach 
CASE POSITION OF... 


Programm 


PROGRAM AEZAEHLEN(INPUT, 


OUTPUT); 


VAR 
ZEICHEN: CHAR; 
VORAL: SET OF Ya 
ZAEHLER: O.. 10000; 


BEGIN 
VOKAL := ['A', 
ZAEHLER := 0; 
WEILE NOT EOF DO 
BEGIN 


pr, WIR, 


READ (ZEICHEN); 
IF ZEICHEN IN VOKAL THEN 
ZAEHLER := ZAEHLER + 1 
END {WHILE}; 
WRITE(ZAEHLER, 


' VOKALE GEFUNDEN') 
END {ABZAEHLEN}. 


Eingabe (input) 


PROGRAM ABZAEHLEN(INPUT, OUTPUT); 
VAR 
ZEICHEN: CHAR; 
VORAL: SET OR "TAN..tZI, 
ZAEHLER: O.. 10000; 


BEGIN 
VOKAL := ['A', 
ZAEHLER := 0; 
WEILE NOT EOF DO 
BEGIN 
READ(ZEICHEN); 
IF ZEICHEN IN VOKAL THEN 
ZAEHLER := ZAEHLER + 1 
END {WHILE}; 
WRITE(ZAEHLER, 
END {ABZAEHLEN]. 


ipt, I", '0', 'u']; 


' VOKALE GEFUNDEN') 


Ausgabe (output) 


&82 VOKALE GEFUNDEN 


Bild 29. Programm ABZAEHLEN. Eingabe für das Programm ist die 
Programmliste selbst. Erklärung zur Menge VOKAL befindet sich 
im Text 
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bedeutet das erste Auftreten GLEICH: ...;, daß hier ein 
Wert des Aufzählungstyps angeführt ist und - falls 
POSITION = GLEICH gilt - die Anweisung nach dem 
Doppelpunkt ausgeführt wird. Das GLEICH innerhalb 
der Anführungszeichen zusammen mit den Leerzei- 
chen ist dagegen ein Klartext, der direkt ausgegeben 
wird. Ein Text könnte an dieser Stelle auch ‘IST DER 
GESUCHTE BUCHSTABE lauten. Zu beachten ist im 
Programm BUCHSTABENRATEN die Wirkung von 
WRITE (...). Das erste WRITE (‘ “ ‘, ...) gibt eine Zei- 
chenkette aus, in der gleichen Zeile wird dann nach 
dem nächsten Prozeduraufruf innerhalb der Aus- 
wahlanweisung ein‘ VOR ‘o.a. angefügt. Diesem 
wird schließlich ‘ DEM ‘ angehängt, und es wird auf 
die nächste Zeile übergegangen (wegen WRITELN 
statt WRITE). 

Die Auswahlstellen in der case-Anweisung sind 
also keine Marken, im Unterschied beispielsweise zu 
FORTRAN oder ALGOL. Sie können daher auch nicht 


Programm 


PROGRAM BUCHSTABENRATEN(INPUT/, OUTPUT); 
VAR 
GESUCHT, 
GEGEBEN: 
POSITION: 


'A! a” '7'; 


(VOR, GLEICH, NACH); 


{ Aufzaehlungstyp } 


BEGIN 
GESUCHT := 
WRITELN(' 
WRITELN(' 
REPEAT 
READLN; 
READ(GEGEBEN); 
IF: GEGEBEN = 
THEN 
POSITION := 


'p': 
BITTE GEBEN SIE NACH JEDEM FRAGEZEICHEN'); 
EINEN BUCHSTABEN EIN!'); 


GESUCHT 


GLEICH 
ELSE 
IF GEGEBEN < GESUCHT 
THEN 
POSITION := VOR 
SE 


POSITION := 
WRITE('"', GEGEBEN, 
CASE POSITION OF 

VOR: 
WRITE(' VOR Di 


NACH; 
m IST '); 


GLEICH '); 
NACH i, 


WRITELN(' DEM GESUCHTEN BUCHSTABEN'); 
UNTIL: POSITION = GLEICH; 
WRITELN(' O.K.') 
END {BUCHSTABENRATEN}. 


Interaktive Ein-/Ausgabe 


GEBEN SIE NACH JEDEM FRAGEZEICHEN 
BUCHSTABEN EIN! 

IST VOR DEM GESUCHTEN BUCHSTABEN 
IST NACH DEM GESUCHTEN BUCHSTABEN 


IST VOR DEM GESUCHTEN BUCHSTAEEN 
IST NACH DEM GESUCHTEN BUCHSTABEN 
IST GLEICH DEM GESUCHTEN BUCHSTABEN 





Bild 30. Verbessertes Programm BUCHSTABENRATEN (3. Version) 
durch Einführen eines Aufzählungstyps. Nach wie vor ist der ge- 
suchte Buchstabe einsehbar: Eine endgültige Version müßte den 
Buchstaben per Zufallsgenerator erzeugen. Dieses Programm wurde 
ausnahmsweise von einem Compiler für interaktives Arbeiten über- 
setzt. Der Leser möge die nichtstandardmäßigen Elemente (Schräg- 
strich nach INPUT und READLN vor READ(GEGEBEN)) entschul- 
digen. Aber nur dadurch war es auf dem vorhandenen Rechner mög- 
lich, den Buchstaben im „Dialog‘‘ zu raten. Das Fragezeichen wird 
nach dem READLN ausgegeben, dann tippt der Benutzer ein Zei- 
chen ein (nicht gedruckt) 
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mit einem goto angesprungen und dürfen natürlich 
nicht als Marken vereinbart werden. Sie sind Konstan- 
te, für die Werte der sogenannten geordneten Daten- 
typen (mit den Standardtypen integer, char und 
boolean) in Frage kommen; bei boolean wären dies 
nur zwei Alternativen: FALSE und TRUE. Die Liste 
der Konstanten muß nicht alle Werte umfassen; gehö- 
ren mehrere zusammen, so werden sie durch Kommas 
getrennt aneinandergereiht. 


Falls nichtalle Werte des Ausdrucks nach dem Wort- 
symbol case (siehe Syntaxdiagramm Bild 20b) aufge- 
listet sind, kann es im Programmlauf passieren, daß 
die entsprechende Auswahlstelle bis zum abschlie- 
Benden end nicht gefunden wurde. In diesem Fall 
wird die weitere Ausführung abgebrochen und eine 
Fehlermeldung zur case-Anweisung gegeben (etwa: 
Wert außerhalb des Bereiches). Diese harte Festlegung 
hat zum Teil heftige Kontroversen ausgelöst. Um dem 
Programmierer das Leben zu „erleichtern“, wurden 
daher auch bei manchen PASCAL-Übersetzern Erwei- 
terungen vorgenommen: Das, was unter „Sonstiges“ 
fällt, wird nach otherwise bzw. else behandelt. In dem 
internationalen Entwurf zur Sprache PASCAL (Stand 
April 1980) sind keine Änderungen zu diesem Punkt 


Eingabe (input) 


Programm 


PROGRAM KALENDER(INPUT, OUTPUT); 


CONST 
KORREKTUR = 15; 
{| Gregorianische Korrektur fuer 
die Jahre 1901 bis 2099 |} 


DATUM = RECORD 
TAG: 1.431; 
1..12;5 
1901..2099 
END; 


BOOLEAN; 
: DATUM; 
JD: INTEGER; 
WOCHENTAG: 0..6 {Montag bis Sonntag}; 
TAGESZAHL: 1..366; 


SCHALTJAHR: 
D: 


BEGIN 
WITH D DO 
BEGIN 
READ(TAG, MONAT, 
SCHALTJAHR := (O 
IF MONAT > 2 
THEN 
TAGESZAHL := TRUNC(30.6 * (MONAT + 1)) - 
65 + TAG + ORD(SCHALTJAHR) 


JAHR); 
= JAHR MOD 4); 


ELSE 
TAGESZAUHL := TRUNC(30.6 * (MONAT + 13)) - 
428 + TAG; 
ID := TRUNC((JAHR - 1) * 365.25) + TAGESZAHL 
- KORREKTUR + 1721425; 
END {wItH}; 
WOCHENTAG := JD MOD 7; 
WRITELU("  JULIANISCHER TAG= ' 
WRITELN(' NR. DES WÜCHENTAGES=', 
END {KALENDER}. 


‚» JD); 
WOCHENTAG) 





Ausgabe (output) 


JULIANISCHER TAG= 


2444519 
NR. DES WOCHENTAGES= 2 


Bild 31. Programm KALENDER (1. Version). Es berechnet den Ju- 
lianischen Tag und den Wochentag für den 20. 3. 1980, dem Er- 
scheinungstag von Heft 6/80 der ELEKTRONIK. Da die Zählung des 
Wochentages mit 0 für Montag beginnt, ist 3 dann der Donnerstag 


vorgesehen. Dem Programmierer sei empfohlen, lie- 
ber etwas mehr zu schreiben, als vorschnell auf Erwei- 
terungen zurückzugreifen. 


5.2.5 Inspektionsanweisung 


Die Inspektionsanweisung (,with‘“-Anweisung) 
dient zur Vereinfachung des Zugriffes auf eine Ver- 
bund-Variable. Wie bereits bei der Besprechung der 
Verbunde erläutert, geschieht das Ansprechen einer 
Verbund-Komponente durch das Anhängen eines 
Punktes an den Variablennamen, gefolgt von dem Be- 
zeichner für die Komponente. Nach den Vereinbarun- 
gen 


TYPE DATUM = RECORD 
TAG: 1.31; 
MONAT: 1..12; 
JAHR: 1901..2099 
END; 
VAR D: DATUM; 


steht eine Datumsvariable D vom Typ DATUM zur 
Verfügung. Im Anweisungsteil könnte man mit 

D.TAG bzw. D.MONAT bzw. D.JAHR auf eine der 
Komponenten TAG usw. zugreifen. Eine Eingabean- 
weisung für ein Datum hätte dann folgende Gestalt: 


READ (D.TAG, D.MONAT, D.JAHR). 


Nacheinander verlangt das Programm ganze Zahlen 
für den Tag, den Monat und das Jahr (und prüft da- 
bei die Einhaltung des jeweiligen Wertbereiches). 
Durch die Inspektionsanweisung, beginnend mit 


WITH D DO... 


wird innerhalb von begin...end auf eine Kompo- 
nente der Variablen D so zugegriffen, daß nur noch der 
Komponentenbezeichner TAG usw. an Stelle von 
D.Tag usw. gesetzt wird. 


Das nächste Programm bestimmt den Julianischen 
Tag. An Hand dieser von Joseph Scaliger (1540...1609) 
eingeführten Tageszählung lassen sich leicht chrono- 
logische Rechnungen durchführen (hauptsächlich in 
der Astronomie). Teilt man z. B. den Julianischen Tag 
durch sieben, so stellt der Rest den Wochentag (Rest: 
0= Mo, 1=Dibis 6 = So) dar. In 18| ist dieses Thema 
behandelt und der im Programm KALENDER (Bild 31) 
verwendete Algorithmus angegeben. Um das Pro- 
gramm übersichtlicher zu gestalten, ist die Berech- 
nung auf die Jahre 1901 bis 2099 beschränkt. Für die- 
sen Zeitraum gilt die sog. Gregorianische Korrektur 
von K = 13; die anderen Werte von K für die Zeit von 
4713 v. Chr. bis 3268 n. Chr. finden sich in dem er- 
wähnten Zitat 18). 


In KALENDER ist die logische Variable SCHALT- 
JAHR vereinbart und erhält durch den Ausdruck 
0 = JAHR MOD 4 
einen Wert zugewiesen. In der linken Seite des Ver- 
gleiches wird der Rest der Jahreszahl auf 4 mit dem 
Operator mod berechnet. (Die runden Klammern um 
den Ausdruck dienen nur zur Hervorhebung, sind 
aber syntaktisch nicht notwendig.) Ist das Jahr ein 


Schaltjahr, so ist der Rest 0 und der Vergleich ergibt 
den Wert TRUE. Für die Berechnung der Tageszahl 
eines Jahres wird die Eigenschaft des Aufzählungs- 
typs boolean genutzt: Die Ordnungszahl von FALSE 
ist O und die von TRUE 1. Schließlich enthält die 
Berechnung noch die Standardfunktion trunc, die aus 
dem reellwertigen Ausdruck 


30.6x(MONAT +1) 


auf die nächstkleinere ganze Zahl abrundet. Ein ganz 
korrektes Programm von KALENDER erfordert natür- 
lich das Abprüfen des Datums aufrichtige Tagesanga- 
ben (29. 2. 1980 ist zulässig, 31. 11. 1980 dagegen 
nicht). Durch den Unterbereichstyp 1...31 ist schon 
eine gewisse, aber keine vollständige Sicherheit gegen 
Fehlbedienung gewonnen. Im Kapitel 6 wird noch 
eine kleine anschließende Prozedur zur Ausgabe der 
Wochentage in Abhängigkeit von dem Wert WT ange- 
geben. 


6 Unterprogramme: Prozeduren und 
Funktionen 


Die allgemein anerkannte Methode der strukturier- 
ten Programmierung zur Herstellung zuverlässiger 
Programme betont die große Wichtigkeit desrichtigen 
Umsetzens eines Problems in Teilaufgaben. Prozedu- 
ren und Funktionen als Unterprogramme in PASCAL 
sollten daher immer dann eingeführt werden, wenn 
dadurch das Programm übersichtlicher, schneller und 
kürzer wird. Für eine Reihe von immer wieder auftre- 
tenden Aufgaben gibt es die sogenannten Standard- 
prozeduren und -funktionen. Sie sind bereits im 
Abschnitt 3.4 (Tabelle 2) aufgeführt worden und dem 
Leser teilweise bereits bekannt (read, write. exp 
u.a.). Davon stellten die Unterprogramme zur Ein-/ 
Ausgabe die Verbindung zwischen dem Rechner und 
dem Anwender her. Der größeren Effizienz wegen 
werden Teile dieser Standardprozeduren (bzw. -funk- 
tionen) in der Assemblersprache der jeweiligen An- 
lage geschrieben. 

Der Hauptunterschied zwischen den beiden Unter- 
programmformen liegt, wie schon erwähnt, in der Wir- 
kung ihres Aufrufes: ein Prozeduraufruf führt den de- 
finierten Anweisungsteil aus. Der Prozedurname steht 
sozusagen für diesen Unterprogrammteil. Bei einem 
Funktionsaufruf dagegen wird dem Funktionsnamen 
ein Wert zugewiesen, der innerhalb eines Ausdruckes 
weiter verwendet wird. Dieser Unterschied kommt in 
den Vereinbarungsteilen zum Ausdruck. Da sonst 
keine prinzipiellen Differenzen auftreten, werden im 
folgenden beide Formen gemeinsam betrachtet. Den 
verschiedenen Parametern wird dabei besondere 
Aufmerksamkeit geschenkt. 


6.1 Vereinbarung 


Prozeduren und Funktionen werden in PASCAL 
nach den Vereinbarungsabschnitten für Marken, Kon- 
stanten, Typen und Variablen definiert. Dadurch er- 
halten die PASCAL-Programme ihr charakteristisches 
Aussehen: Nach dem meist längeren Vereinbarungs- 


37 


Prozedur - 
Vereinbarung 









enfacher Datentyp 
oder Zeigertyp 





er 


Funktions- 
Vereinbarung 


Bild 32. Syntaxdiagramm für die Verein- 
barung von Prozeduren und Funktionen. 
Direktiven zeigen dem Compiler an, daß 
bereits übersetzte Unterprogramme ein- 
geschleust werden 


teil folgt am Schluß ein relativ kurzer Anweisungsteil 
des Hauptprogrammes (z. B. im Unterschied zu FOR- 
TRAN, dort sind die Unterprogramme zuletzt aufge- 
führt). Die Vereinbarungen für Prozeduren und Funk- 
tionen können — wie aus Bild 5 im Abschnitt 3.2 er- 
sichtlich - in beliebiger Reihenfolge angeordnet sein; 
Bild 32 und 33 zeigen die ausführlichen Syntaxdia- 
gramme. Ungewöhnlich sieht im Vergleich zu AL- 
GOL, FORTRAN u.a. die Parameterliste aus: Inner- 
halb der runden Klammern befinden sich nicht nur die 
Namen der formalen Parameter, sondern auch — nach 
dem Anhängen eines Doppelpunktes — die Angabe ei- 
nes Typs. Diese für PASCAL und verwandte Sprachen 
typische Syntax bindet jeden Parameter sichtbar an 
einen Typ, der durch einen Bezeichner gegeben ist. 
Bei einem Standardtyp (integer usw.) ist dies problem- 
los. Alle anderen Typen (Aufzählungs-, Unterbe- 
reichs- und strukturierte Typen) verlangen einen ei- 
genen Bezeichner, der in der Typ-Vereinbarung zuvor 
definiert worden ist. 


X1:COMPLEX 
ist eine zulässige Spezifikation eines formalen Para- 
meters, falls COMPLEX vorher als (Verbund-)Typ ver- 
einbart wurde. 


X1: RECORD RE, IM: REAL END 
ist dagegen falsch, weil nach dem Doppelpunkt eine 
Typ-Definition und nicht ein Typ-Bezeichner folgt 





Parameter- 
Liste 
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(wie oben sollte X1 eine Verbundvariable sein). Dieser 
Umstand bringt es mit sich, daß der Anfänger in PAS- 
CAL vornehmlich Standardtypen einsetzt. Das ist na- 
türlich einfacher, aber nicht immer dem Problem an- 
gemessen. 


Natürlich gibt es Unterprogramme auch ohne Para- 
meter. Dadurch wird die Vereinbarung und der Aufruf 
vereinfacht. Meist ist es jedoch sicherer, alle Größen 
für den Ein- und Ausgang eigens auszuweisen (bei- 
spielsweise zur besseren Testmöglichkeit des Pro- 
gramms). 


Die im Prozedur- bzw. Funktionskopf eingeführten 
Parameter heißen definitionsgemäß formale Parame- 
ter. Beim Aufruf treten an ihre Stelle die aktuellen Pa- 
rameter, die erstens vom gleichen Typ sein und zwei- 
tens an derselben Position innerhalb der Parameterli- 
ste stehen müssen. 


Je nach Art der Parameterübergabe verwendet man 


Werte-Parameter, 
Variablen-Parameter, 
Prozedur-Parameter und 
Funktions-Parameter. 


Diese Formen werden anschließend an Hand von Pro- 
grammen erläutert. 


Dem Prozedur- bzw. Funktionskopf folgt wahlweise 
ein Block oder eine Direktive. Ein Block besteht — 
wie schon im Bild 5 dargestellt — aus einem Ver- 
einbarungs- und Anweisungsteil. Die vereinbarten 
Marken, Konstanten, Variablen, Typen und weiteren 
Prozeduren und Funktionen sind wie die formalen Pa- 
rameter nur für den folgenden Anweisungsteil gültig. 
Man nennt sie daher lokal. Nach dem Abschluß eines 
Prozedur- oder Funktionsaufrufes ist ihre Lebens- 
dauer zu Ende. Die vor einer Prozedur (bzw. Funktion) 
vereinbarten Größen sind im Gegensatz dazu global. 
Auf sie können auch die ‚inneren‘ Unterprogramme 
zugreifen. Mit entsprechenden Wertzuweisungen 
sind auch Änderungen der Werte von globalen Varia- 
blen möglich. Da solche Modifikationen oft schwer zu 
lokalisierende Fehler schaffen, sollte - falls möglich — 
auf globale Variable nur lesend zugegriffen werden 
(Stichwort: Seiteneffekt). 


Bild 33. Syntaxdiagramm für die Ver- 
einbarung der Parameterliste. Anm.: 
Die hier dargestellte Syntax für Proze- 
duren und Funktionen als formale Pa- 
rameter richtet sich nach dem ISO- 
Entwurf (April 1980) 


Anstelle eines Blocks kann eine Direktive treten. 
Dadurch wird dem Compiler mitgeteilt, daß das Un- 
terprogramm bereits übersetzt vorliegt. Auf diese 
Weise sind externe Prozeduren und Funktionen in das 
Programm einschleusbar. Es gibt z. B. die anlagenspe- 
zifischen Direktiven 
EXTERN 
für externe PASCAL-Unterprogramme und 
FORTRAN 
für externe FORTRAN-Routinen. 

Standardmäßig ist diesogenannte Vorwärtsdeklara- 
tion durch die Direktive FORWARD. Sie wird dann 
benutzt, wenn sich Prozeduren (bzw. Funktionen) 
wechselseitig aufeinander beziehen. Die Konstruktion 
PROCEDURE A; FORWARD; 

PROCEDURE B; 
BEGIN ...; A; ... 
PROCEDURE A; 
BEGIN ...; B; ... END; 


END; 


Eingabe (input) 


140625 


OoOO0000000 
© 


Programm 


PROGRAM ENTROPY(INPUT, 
VAR 


OUTPUT); 


H, {average information content} 
PROBABILITY, 
SUMOFPROBABILITIES: 
NUMBER: 


REAL; 
INTEGER; 


FUNCTION LOG2(X: REAL): REAL; 
CoNST 
LNOFTWO = 6.9314718055994E-1; 
{= 1n(2)} 


= IN(X) 
END {L0G2}; 


/ LNOFTWO 


BEGIN {ENTROPY} 
H := 0.0; 
SUMOFPROBABILITIES := 0.0; 
NUMBER := 0; 
WEILE NOT EOF DO 
BEGIN 
READLN(PROBABILITY); 
SUMOFPROBABILITIES := 
SUMOFPROBABILITIES + 
H := H - LOG2(PROBABILITY) * 
NUMBER := NUMBER + 1 
END {WHILE}; 
WRITELN(' NUMBER OF EVENTS', 
IF ABS(SUMOFPROBABILITIES - 


PROBABILITY; 
PROBABILITY; 


NUMBER: 6); 
.0) < 1.0E-6 


THEN 
WRITELN(' ENTROPY ‘. BE ME, 7 BIN 


E 
WRITELN(' ERROR: SUM OF PROBABILITIES <> 1.0', 
SUMOFPROBABILITIES: 10: 6) 

END {ENTROPY}. 





Ausgabe (output) 


NUMBER OF EVENTS 


9 
ENTROPY 3.1226 BIT 


Bild 34. Programm ENTROPY für die Berechnung des mittleren In- 
formationsgehaltes mit der selbstdefinierten Funktion LOG2. 





demonstriert für die parameterlosen Prozeduren A 
und B die Notwendigkeit der Vorwärtsvereinbarung 
von A, weil in B der Prozedurname A bekannt sein 
muß. 


6.2 Werte-Parameter 

Werte-Parameter (‚‚value‘‘-Parameter) als einfachste 
Form übergeben an die Prozedur (Funktion) Werte, 
ohne daß er dann geändert werden darf (und kann!). 
Die Standardprozedur 
WRITE (JD) 
bewirkt bekannterweise die Ausgabe der aktuellen 
Zahl der ‚integer‘‘-Variablen JD. JD hat nach der Aus- 
gabe denselben Wert wie vorher und kann weiter im 
Programm verarbeitet werden. 

Das nächste Beispiel (Bild 34) zeigt die erste selbst- 
definierte Funktion. Für die Berechnung der Entropie 
einer Nachrichtenquelle nach Shannon 


n 
I=1 


wird der duale Logarithmus benötigt. Da aber nur der 
natürliche Logarithmus (LN) standardmäßig vorhan- 
den ist, wird die Funktion LOG2 (= Inx/In2) einge- 
führt. Nur wegen der Beschränkung auf Großbuchsta- 
ben wurde sie nicht mit LD (für Id) bezeichnet. 


Innerhalb des kurzen Anweisungsteiles der Funk- 
tion LOG2 sind X und LNOFTWO lokale Variable, 
bzw. Konstanten. Auf die globalen Variablen PROB- 
ABILITY, SUMOFPROBABILITIES, H, NUMBER, IN- 
PUT und OUTPUT wird überhaupt nicht zugegriffen. 
Anstelle des formalen Parameters X vom Typ ‚‚real‘“ 
wird beim Funktionsaufruf LOG2 (PROBABILITY) als 
aktueller Parameter PROBABILITY eingesetzt. An- 
merkung: Den Zahlenwert der Konstanten LNOFTWO 
kann man sich durch das kurze Programm 


PROGRAM T(OUTPUT); 
BEGIN WRITE (LN(2.0)) END. 


schnell beschaffen, falls kein Taschenrechner greifbar 
und/oder eine höhere Genauigkeit erwünscht ist. 


Ein gewisser Schutz gegen eine fehlerhafte Eingabe 
— zuviele oder zuwenige Ereignisse p; — ist durch die 
Abfrage 


1) a <1n° 
1=] 


in der bedingten Verzweigung erreicht. Dem Pro- 
gramm fehlt jedoch ein Test auf negative Werte für 
PROBABILITY, da dann LN(X) nicht mehr (und alles 
weitere) berechnet werden kann. 


Die Vereinbarung einer Funktion in Bild 34 demon- 
striert hier natürlich nicht den platz- und zeitsparen- 
den Einsatz eines Unterprogrammes. Es betont mehr 
die Übersichtlichkeit und zeigt das Vorgehen, wie 
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man sich nichtstandardmäßige Funktionen ver- 
schafft. Aufähnliche Weise kann man die EXOR-Ver- 
knüpfungen im Programm PSEUDOZUFALLSFOL- 
GEN (Bild 26) im Abschnitt 5.2.3.1 durch ein kleines 
Unterprogramm ersetzen. Die Vereinbarung könnte so 
aussehen: 


FUNCTION EXOR (V1,V2:BOOLEAN): BOOLEAN; 
BEGIN 
EXOR := (V1 AND NOT V2) OR 
(NOT V1 AND V2) 
END |EXOR!:; 


Auch hier besteht der Anweisungsteil nur aus einer 
Wertzuweisung an den Funktionsbezeichner EXOR 
(entweder FALSE oder TRUE). Ein Aufruf in dem ge- 


Eingabe (input) 


Programm 


PROGRAM KALENDER(INPUT, OUTPUT); 
CONST 
KORREKTUR = 13; 
{ Gregorianische Korrektur fuer 
die Jahre 1901 bis 2099 } 


DATUM = RECORD 
TAGE Nas 
MONAT: 1.. ; 
JAHR: 1901... 
END; 
NULLSECHS 0.. 6 {Montag bis Sonntag}; 


BOOLEAN; 
DATUM; 

JD: INTEGER; 
WOCHENTAG: NULLSECHS; 
TAGESZAHL: 1.. 366; 


SCHALTJAHR: 
D: 


PROCEDURE SCHREIBWOCHENTAG( VAR AUS: 


WOTAG: 


TEXT; 
NULLSECHS); 


BEGIN 
CASE WOTAG OF 
O0: WRITE(AUS, 


WRITE(AUS, 


"MONTAG 15 

"DIENSTAG ') 

"MITTWOCH 18 
’ 
"); 
u) 


ee 


WRITE(AUS, 
WRITE(AUS, 
San, 
:  WRITE(AUS, 

END {CASE} 
END {SCHREIBWOCHENTAG]; 


"DONNERSTAG 
"FREITAG 
"SAMSTAG 
'SONNTAG') 


BEGIN 
WITH D DO 
BEGIN 


JAHR); 
JAHR MOD 4; 


READ(TAG, MONAT, 
SCHALTJAHR := 0 = 
IF MONAT > 2 


HEN 
TAGESZAHL := TRUNC(30.6 * (MONAT + 1)) - 
63 + TAG + ORD(SCHALTJAHR) 
ELSE 
TAGESZAHL := 
428 + TAG; 
JD := TRUNC((JAHR - 1) * 
- KORREKTUR + 1721423; 
WRITE(TAG: 5, "!.', MONAT: 3, .', 
END {wITH}; 
WOCHENTAG := JD MOD 7; 
WRITE(' FAELLT AUF EINEN '); 
SCHREIBWOCHENTAG(OUTPUT, WOCHENTAG); 
WRITELN; 


WRITELN(' JULIANISCHER TAG=', JD) 
END {KALENDER}. 


TRUNC(30.6 #* (MONAT + 13)) - 


365.25) + TAGESZAHL 


JAHR: 5); 


Ausgabe (output) 


FAELLT AUF EINEN DONNERSTAG 
24443533 


. 4. 1980 
JULIANISCHER TAG= 


Bild 35. Programm KALENDER (2. Version). Vergleiche dazu die 
Version in Bild 31 (Abschnitt 5.2.5) ohne Prozedur 
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änderten Programm PSEUDOZUFALLSFOLGE sieht 
dann so aus: 


SRIO| := EXOR (SRIN|,SR|ABGRIFF)); 


Als aktuelle Werteparameter für die formalen Parame- 
ter V1 und V2 sind hier indizierte Feldelemente von 
SR (als ARRAY]/0...MAXSTUFEN| OF BOOLEAN ver- 
einbart) eingesetzt. Entscheidend dabei ist, daß die 
Datentypen der Parameter identisch sind (hier: BOO- 
LEAN). In dem gleichen Programm bietet es sich an, 
die Berechnung von Potenzen zur Basis 2 als Funktion 
zu formulieren. Der Leser möge dies vielleicht selbst 
versuchen. 


Das nächste Programm KALENDER (Bild 35) ermög- 
licht dem Leser einen Vergleich zu der ersten Version 
ohne Prozedur in Bild 31. Durch die Prozedur 
SCHREIBWOCHENTAG wird die Ausgabe des Pro- 
gramms verständlicher. Die Parameterliste enthält ne- 
ben einem Werte-Parameter zusätzlich einen Varia- 
blen-Parameter (s. u.). Für den Werte-Parameter WO- 
TAG wurde ein angepaßter Unterbereichstyp einge- 
führt: 


NULLSECHS = 0..6; 


obwohl die Modulo-Operation (JD MOD 7) nur Werte 
zwischen 0 und 6 liefert. Bei künftigen Erweiterungen 
bleibt diese Prozedur sicher, weil die Auswahlwei- 
sung nur 0...6 erhält. Da in diesem Programm die Va- 
riable WOCHENTAG nur einmal einen numerischen 
Wert erhält, wurde auf die Definition eines Aufzäh- 
lungstyps WOCHE = (MON...) verzichtet. Bei einem 
Vorhandensein von WOCHE wäre in der Trozedur 
SCHREIBWOCHENTAG nur wenig zu ändern: statt 
NULLSECHS steht dann WOCHE; statt 0: ... dann 
MON:... usw. Neu zu programmieren wäre dagegen 
eine Funktion, die aus den Werten 0...6 die Werte 
MON...SON bestimmt. Ein Vorschlag: 


FUNCTION W (WOTAG: NULLSECHS) : WOCHE; 
BEGIN CASE WOTAG OF 


0: W:= MON; 
1: W:= DIE; ...END I|CASE! 
END IW}; 


Ebenso wie hier in KALENDER kann eine Prozedur 
zur Ausgabe der Variablen POSITION im Programm 
BUCHSTABENRATEN (Bild 30) eingefügt werden. 


6.3 Variablen-Parameter 


Das Wortsymbol var leitet in der Parameterliste ei- 
ner Prozedur die Definition eines Variablen-Parame- 
ters ein. Diese Form kommt dann zum Tragen. wenn 
die Prozedur (bzw. die Funktion) den Wert des 
Parameters selbst verändert und an den aufrufenden 
Programmteil zurückgibt. Als aktueller Parameter 
kann natürlich nur eine Variable (keine Konstante) 
beim Aufruf eingesetzt sein. Die Unterscheidung zwi- 
schen Wert- und Variablen-Parametern bringt einen 
großen Gewinn an Sicherheit, weil damit der Pro- 
grammierer möglichen Wertänderungen von Varia- 
blen an falscher Stelle vorbeugt. Bei Dateien als Para- 
metertyp muß grundsätzlich ein Variablen-Parameter 
eingesetzt werden (Begründung: die aktuelle Position 


einer Datei wird sowohl durch Lesen als auch Schrei- 
ben verändert). 


Bevor das nächste Programm betrachtet wird, sei 
daraufhingewiesen, daß in der Eingabeanweisung die 
typische Verwendung eines Variablen-Parameters 
vorliegt. Ein Prozeduraufrufbewirkt entsprechend der 
Dateneingabe die Zuweisung eines Wertes an den Pa- 
rameter. Der frühere Wert des Parameters ist dann un- 
widerruflich gelöscht. 


Das Programm KOMPLEXE ARITHMETIK (Bild 36) 
greift die komplexe Rechnung mit dem Verbund 
COMPLEX auf. In diesem Beispiel ist eine Prozedur 


Eingabe (input) 


Programm 


PROGRAM KOMPLEXEARITHMETIK(INPUT, OUTPUT); 
TYPE 
COMPLEX = RECORD 


REAL 


ZAHL1, 
ZAHL2, 
ERGEBNIS: 
OPSYMBOL: 


PROCEDURE CPLX( 


COMPLEX; 
CHAR; 


OPERAND1, 
OPERAND2: 
OPERATOR: 
VAR RESULTAT: 


COMPLEX; 
CHAR; 
COMPLEX); 


VAR 
NENNER: REAL; 
BEGIN 
IF OPERATOR IN 
THEN 
CASE OPERATOR OF 
'+': BEGIN 
RESULTAT.RE 
RESULTAT.IM 
END 


+1; 

: BEGIN 
RESULTAT.RE 
RESULTAT.IM 

END 


fi=t]; 
: BEGIN 
RESULTAT.RE := 
OPERAND1.IM * 
RESULTAT.IM := 
OPERANDI.IM * 
END 


nr}; 
: BEGIN 
NENNER := SQR(OPERAND2.RE) + SQR(OPERAND2.IM); 
RESULTAT.RE := (OPERAND!.RE * OPERAND2.RE + 
OPERANDI.IM * OPERAND2.IM) / NENNER; 
RESULTAT.IM := (OPERAND2.RE * OPERANDI.IM - 
anno PERANDI.RE * OPERAND2.IM) / NENNER 
- { 


{CASE} 


BIO WRITELN(OUTPUN, ' 
END {cpıx}; 


BEGIN {KOMPLEXEARITHMETIK} 
{der Operator wird in der ersten Eingabezeile eingegeben} 
READLN (OPSYMBOL); 
READ(ZAHLI.RE, ZAHL1.IM, ZAHL2.RE, ZAHL2.IM); 
CPLX(ZAHLI, ZAHL2, OPSYMBOL, ERGEBNIS); 
WRITELN(' REALTEIL= ', ERGEBNIS.RE: 12, 
'  IMAGINAERTEIL= ', ERGEBNIS.IM: 12) 
END {KOMPLEXEARITHMETIK}. 


Dan, un, m, 


'/] 


OPERAND1 .RE 
OPERAND1 .IM 


OPERAND2.RE; 
OPERAND2.IM 


OPERAND1 .RE 
OPERAND1 .IM 


OPERAND2.RE; 
OPERAND2.IM 


OPERANDI.RE * OPERAND2.RE - 
OPERAND2.IM; 

OPERANDI.RE * OPERAND2.IM + 
OPERAND2.RE 


END 
OPERATOR UNZULAESSIG!"') 





Ausgabe (output) 


REALTEIL= -2.500E-001 IMAGINAERTEIL= 2.400E+000 


Bild 36. Programm KOMPLEXE ARITHMETIK als Beispiel füreinen 
Variablen-Parameter (VAR RESULTAT:COMPLEX). Der Kürze we- 
gen wurde auf eine einfachere Ein- und Ausgabe verzichtet 


für die verschiedenen Operationen eingeführt. Eine 
andere Lösung bestände darin, für jede der Operatio- 
nen eine eigene Prozedur zu schreiben. Zur Vereinfa- 
chung und Platzersparnis der Eingabe des Opera- 
tionssymbol wurde hier der Standardtyp ‚„char‘‘ für 
die Variable OPERATOR herangezogen. Das Pro- 
gramm enthält vor der Auswahlanweisung einen Test, 
ob der übergebene Wert von OPERATOR einer der vier 
programmierten Alternativen ist. Ist das Zeichen au- 
Berhalb der Menge 

[9 7,27, °P], 

so erfolgt eine Fehlermeldung und die Komponenten 
der Verbundvariablen RESULTAT erhalten den Wert 
„undefiniert‘‘ (das ist exakter als die in anderen Spra- 
chen übliche Vorbesetzung mit Nullen). Auf die Be- 
handlung einer Division durch Null (NENNER = 0) 
wurde aus Platzgründen verzichtet. Im Regelfall-also 
OPERATOR ist in der Menge enthalten - erfolgt die 
gewünschte arithmetische Berechnung und führt zu 
einer Wertzuweisung an den Variablen-Parameter 
RESULTAT. Beim Verlassen der Prozedur werden die 
Werte (Real- und Imaginärteil) an den aktuellen Para- 
meter ERGEBNIS übergeben. Im Gegensatz dazu sind 
die Werteparameter ZAHL1, ZAHL2 und OPSYMBOL 
unverändert geblieben. 


Das eingegebene Sternchen vor den beiden Zahlen 
1,1+j0,4 und 0,5+j2,0 bedeutet durch die Definition 
der Prozedur CPLX, daß die komplexen Zahlen mit- 
einander multipliziert werden. Man könnte dafür 
auch andere Zuordnungen - u. U. entgegen der ge- 
wohnten Schreibweise — wählen. Im Unterschied 
dazu ist das „%*‘“‘ in den Ausdrücken des Programms 
ein Grundsymbol für die Multiplikation reeller Grö- 
Ben. 


Die Prozedur CPLX in Bild 36 greift bis auf die 
Text-Datei output nur auf lokale Variable zu, so daß 
eine klare Verbindung zwischen Haupt- und Unter- 
programm über die Parameter besteht. Bei der Über- 
nahme von CPLX in andere Programme muß man be- 
achten, daß die Typvereinbarung für COMPLEX mit- 
genommen werden muß. 


Das Programmbeispiel macht gleichzeitig auch den 
Unterschied zu den Funktionen deutlich: Der Proze- 
duraufruf ist eine eigenständige Anweisung. Dem 
Prozedurbezeichner wird nirgends etwas zugewiesen; 
dagegen aber einem Funktionsnamen. CPLX als Funk- 
tion zu definieren ist nicht möglich, da der Resultattyp 
einer Funktion nur ein einfacher Datentyp oder ein 
Zeigertyp sein darf. COMPLEX ist ein strukturierter 
Typ (Verbund), deshalb ist in PASCAL 


FUNCTION CPLX ( ...) : COMPLEX; 


unzulässig. Diese wünschenswerte Eigenschaft wird 
manchmal — wie hier — vermißt. Die Beschränkung 
wurde von N. Wirth zugunsten der Einfachheit der 
Sprache vorgenommen und wird allgemein akzep- 
tiert. Aus dem gleichen Grunde gibt es keine Na- 
mens-Parameter (wie z. B. in ALGOL). Wo diese Pro- 
grammiertechnik gebraucht wird, setzte man Proze- 
dur- und Funktionsparameter ein. 


41 


Bild 37. Ein LRC-Reihen- 
resonanzkreis und seine 
Differentialgleichung; 
sprungförmig im  Zeit- 
punkt Null mit E, erregt 


6.4 Prozedur- und Funktionsparameter 


Eine Reihe von Problemstellungen verlangen, daß 
Prozeduren und Funktionen selbst als Parameter einer 
Prozedur (bzw. Funktion) auftreten müssen. Ein typi- 
sches Beispiel dafür ist die Integration: Ein universel- 
les Programm dazu entsteht nur dann, wenn unter- 
schiedliche Funktionen integriert werden können. 
Ein anderes Beispiel ist die Lösung einer Differential- 
gleichung: Im nächsten Programm wird das Ein- 
schwingverhalten eines verlustbehafteten Schwing- 
kreises (Bild 37) ermittelt. Die numerische Berech- 
nung der Sprungantwort bringt natürlich für kon- 
stante Koeffizienten T, und T; keinen Vorteil, da die 
Lösungsgleichung seit langem bekannt ist. Sie ist je- 
doch dann von großem Nutzen, wenn nichtlineare 
oder instationäre Elemente vorliegen. Eine entspre- 
chende Modifikation des Programms ist dann leicht 
möglich. 

Das Programm SCHWINGKREIS in Bild 38 demon- 
striert zwei neue Möglichkeiten der Anwendung von 
Prozeduren (für Funktionen gilt entsprechendes). 
Zum ersten ist in einer der Prozeduren, nämlich in 
DIFSY2, ein Prozedurparameter (FKT) enthalten. Zum 
zweiten ist diese Prozedur DIFSY2 eine Bibliotheks- 
prozedur. Letzteres aus zwei Gründen: die Wieder- 
gabe ihres Anweisungsteils verbietet sich hier aus 
Platzgründen (Länge: 200 Zeilen); und als Biblio- 
theks-Prozedur wird sie natürlich auch von anderen 
Benutzern des Rechners zur Lösung eines Differenti- 
algleichungssystems verwendet. Statt des umfangrei- 
chen Prozedurrumpfes steht also die Direktive EX- 
TERN. Nach der Übersetzung muß die bereits vor- 
übersetzte PASCAL-Prozedur dem Hauptprogramm 
zugeladen werden. Erst dann ist SCHWINGKREIS 
startfähig. 


Der Algorithmus für DIFSY2 beruht auf dem Extra- 
polationsverfahren |19| und führt einen Integrations- 
schritt zur Lösung N gewöhnlicher Differentialglei- 
chungen 1. Ordnung 


d 
= = fı (%,1,Y2,---,Yn); 


dy> dyn > 
ee f2(X,y1,Y2»---YN) --- u = NY Va yR) 


aus (N = 33). Die Berechnung eines Schrittes von v; 
(x) zu y; (x + h,) wird dann beendet, wenn die vorge- 
gebene Genauigkeitsschranke e unterschritten ist 
(oder es wird die Schrittweite h, halbiert). Das hier im 
Prozeduraufruf gewählte e = 10”! soll nur die Güte 
des Verfahrens andeuten; für die grafische Ausgabe 
ist dies otfensichtlich übertrieben. Das Feld Y enthält 
die y; (x) und ist ein Variablen-Parameter. S ist ein 
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Eingabe (input) 


Programm 


PROGRAM SCHWINGKREIS(INPUT, OUTPUT); 
CoNST NMAX = 33; 
TYPE 


VAR 


INDEX 
VEKTOR 


ZEIT, 
INDUKTIVITAET, 
KAPAZITAET, 
WIDERSTAND, 
ENULL, 

T1, 

T2, 

DELTA: 

N: 


1... NMAX; 
ARRAY [INDEX] OF REAL; 


MUE: 
SPG, 
S: 


INTEGER; 
VEKTOR; 


PROCEDURE DGL( T: REAL; 
U: VEKTOR; 
VAR DUDT: VEKTOR); 
{lesender Zugriff auf die globalen Variablen 
ENULL, Ti und T2} 
BEGIN 
aunal? B 
DUDTL2 F 
END {DGL}; 
PROCEDURE DIFSYZ( je 
EPSILON: 
VAR 


u[2]; 
(-ueJ*nm - ul] + zwi) /m2 


INDEX; 
REAL; 


X, 
HO: REAL; 
VAR Y, 
S: 
PROCEDURE FKT( 


VAR DYYDXX: VEKTOR)); 
EXTERN; {Direktive fuer Bibliotheks-Prozedur| 


BEGIN ee 


READ(INDUKTIVITAET, WIDERSTAND); 
71 


KAPAZITAET, 
:= WIDERSTAND * KAPAZITAET; 
T2 := INDUKTIVITAET * KAPAZITAET; 
WRITELN(!' M= ', DM: 11); 
WRITELN(' T2= ', T2: 11); 
WRITELN; 
s= 1.05 
0.0; 
0.0; 


{Anfangswerte des Vektors SPG} 


0.0; {Anfangswerte des Hilfsvektors} 
0.0; 
: ROUND(SPG[1] * 40)); 
To 40 DO 


:= 0.4; |starre Schrittweite} 
:= DELTA * MUE; 
DIFSY2(N, 1E-10, ZEIT, DELTA, SPG, S, 
WRITELN('*': ROUND(sPG[1] * 40)) 
END {FOR} 
END {SCHWINGKREIS}. 


DGL); 





Ti= 3.00E-001 
T2= 1.00E+000 


* 


Bild 38. Programm 
SCHWINGKREIS mit der 
Bibliotheksprozedur DIF- 
SY2 und der selbstdefi- 
nierten Prozedur DGL zur 
Lösung der Differential- 
gleichung des nebenste- 
henden Schwingkreises. 
Die Ausgabe erfolgt als 
Spannungskurve mit dem 
Drucker. (Skalierung mit 
Faktor 40 in der WRI- 
TELN-Anweisung, nor- 
mierte Schrittweise der t- 
Achse: 0,4) 





Bild 39. Drei Grafik-Zeichnungen von der Figur des „Siebenkrei- 
ses“ mit 1,2 und 3 Schichten 


Hilfsfeld für die Konvergenzbestimmung und erhält 
beim Aufruf die gleichen Anfangswerte wie Y. 


Der letzte Parameter in DIFSY2 ist selbst eine Proze- 
dur. Diese Prozedur FKT berechnet die Ableitungen 
dy;/dx für das augenblickliche x und y;. Für das gege- 
bene Problem muß die Differentialgleichung 2. Ord- 
nung nach bekannter Weise in zwei Differentialglei- 
chungen 1. Ordnung umgewandelt werden. 

Aus 


T;, 


d’u du 

—+ T. Be 

dt? "dt 

erhält man nach dem Einsetzen von 
u,(t) = ult) und 


duft) 


+u=E 


uzlt) = 





dt 
folgendes Differentialgleichungssystem (N=2): 
du, u 
At =: No; 
dus 1 
m T (-T, "U5-Uj + E,); 


Diese Gleichungen sind also speziell für den 
Schwingkreis und werden in der Prozedur DGL be- 
rechnet. Damit hat das Programm SCHWINGKREIS 
zwei Prozeduren. Bei jedem Aufruf von DIFSY2 wird 
für den formalen Parameter FKT (eine Prozedur) der 
aktuelle Prozedur-Parameter DGL eingesetzt. 

Das Hauptprogramm enthält nach dem Setzen der 
Anfangswerte im wesentlichen eine Laufanweisung 
zur Ausführung von insgesamt 41 Integrationsschrit- 
ten. Die Ausgabe der Lösungskurve für die Spannung 
u(t) (=ult); SPG |1| im Programmtext) ist grafisch 
und geschieht durch die Steuerung der Länge der Zei- 
chenkette. '*':10 z. B. heißt, daß die Gesamtlänge 10 
ist, davon 9 Leerzeichen und rechtsbündig das Zei- 
chen „x. 


Anmerkung: Die Vereinbarung des Prozedurpara- 
meters FKT in DIFSY2 geschieht hier nach dem neue- 
sten Entwurf zur Standardisierung von PASCAL 
(ISO-Entwurf vom April 1980). Im Unterschied zum 
früheren Standard wird die Parameterliste der Proze- 
dur FKT angeführt. Dies bringt eine erhebliche Er- 
leichterung beim Anschluß von Bibliotheksprozedu- 
ren. 


Der angesprochene Entwurf enthält als zweite we- 
sentliche Änderung von PASCAL die Einführung von 
dynamischen Feldgrenzen (innerhalb einer Parame- 
terliste). Auch dies erfolgte unter dem Gesichtspunkt, 
PASCAL-Programme praktischen Erfordernissen an- 
zupassen (in der Lehre spielt dieser Punkt eine unter- 
geordnete Rolle). Außer diesen beiden Modifikatio- 
nen wird der internationale Standard keine nennens- 
werten Änderungen gegenüber bisher — und dem hier 
vorgestellten PASCAL - enthalten. Daß Computerher- 
steller sowohl Erweiterungen als auch Einschränkun- 
gen für ihr PASCAL anbieten, ist natürlich selbstver- 
ständlich. Diese sollten für den Anwender gut doku- 
mentiert werden. 
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6.5 Standardprozeduren und -funktionen 

Dieser Abschnitt kann hier kurz gehalten werden, 
weil der Leser einige der Unterprogramme in den Pro- 
grammbeispielen kennengelernt hat. Die elementaren 
Datei-Operationen get(.), put(.), reset(.), rewrite(.), 
eof(.) sind bereits in diesem Sonderheft beschrieben 
worden 20. Sie werden wegen der Puffervariablen — 
die jeder Datei beigeordnet ist- im Abschnitt 7 beiden 
Zeigern praktisch vorgestellt. Kennzeichnend für die 
Standardprozeduren und -funktionen ist einfach, daß 
sie in dem Programm vor dem Benutzerprogramm — 
d. h. im Compiler — vereinbart sind. Der Programmie- 
rer muß daher die genaue Spezifikation in den Hand- 
büchern des Compilerherstellers nachsehen (siehe 
auch Tabelle 2 im 4. Abschnitt dieser Arbeit). 


6.6 Rekursion 


Zum Abschluß des 6. Kapitels soll von den diffizile- 
ren Programmiertechniken die Rekursion betrachtet 
werden. Als rekursiv bezeichnet man die Objekte, die 
sich selbst teilweise enthalten oder durch sich selbst 








Programm 
PROGRAM SIEBENKREISE (INPUT, OUTPUT, PLOT); 
CONST LRZSYMBOL = 139 |{Symbolnr. fuer Leibniz-Rechenzentrun|; 
VAR PLOT TEXT {Zeichendatei}; 
SCHICHT INTEGER; 

PROCEDURE SHEET ( VAR PL : TEXT ; MST, WE, HO : REAL); EXTERN; 
Reservieren eines Zeichenbogens und Definition des Fensters] 
PROCEDURE SIZE ( VAR PT : TEXT ; HOEHE: REAL); EXTERN; 

Festlegung der Groesse eines Schriftzeichens]} 
PROCEDURE MARK ( VAR PF : TEXT ; NR : INTEGER ); EXTERN; 
Zeichnen eines Schriftzeichens} 
PROCEDURE DELPHIN ( VAR PF : TEXT ; MST, X, Y: REAL); EXTERN; 
{Zeichnen eines Delphins| 
PROCEDURE FRAME ( VAR PF : TEXT ); EXTERN; 
Einrahmen des Fensters} 
PROCEDURE CIRCLE ( VAR PF : TEXT ; R, PHI1, PHI2: REAL); EXTEREN; 
Zeichnen eines Kreises} 
PROCEDURE MOVETO ( VAR PF : TEXT ; X, Y: REAL); EXTERN; 
Bewegen des Zeichenstiftes ohne Zeichnen einer Linie} 
Penner 
*KREIS7* 
| 
PROCEDURE KRELS7T ( VAR PF : TEXT ; 
ANZ : INTEGER;: 
X, 
L ; 
R : REAL); 
COoNST PIDRITTEL = 1.047197551; 
ZWEIDRITTEL = 0.66666666667; 
VAR N 2 INTEGER; : 
DELTAX ,: 
DELTAY : REAL; 
BEGIN 
IF ANZ > 0 
THEN 
BEGIN 
FOR N := © 70 5 DO {periphere Kreis} 
BEGIN 
DELTAX := ZWEIDRITTEL * R * COS ( N * PIDRITTEL ); 
DELTAY := ZWEIDRITTEL * R * SIN ( N * PIDRITTEL ); 
KREIST ( PF, ANZ-1, DELTAX+X, DELTAY+HY, R/ 3); 
MOVETO ( PF, DELTAX+X, DELTAY+Y); 
CIRCLE ( PF, R / 3, 0, 360) 
END FÜR }; 
KREIS7 ( PF, ANZ-1 , X, Y, R/ 3); (zentrale Kreise} 
MOVETO ( PF, X, Y); 
CIRCLE ( PF, R/ 3, 0, 360) 
END {| IF } 
END | KREIS7T |}; 
BEGIN { SIEBENKREISE | 
READ ( SCHICHT); 
SHEET ( PLOT, 10, 20, 20); 
FRAME ( PLOT); 
DELPHIN ( PLOT, 6, 2, 2); 
SIZE ( PLOT, 1.1); 
MOVETO ( PLOT, 18, 2);: 
MARK ( PLOT, LRZSYMBOL ); 
KREIS7T ( PLOT, SCHICHT , 10, 10, 9); 
MOVETO ( PLOT, 10, 10); 
CIRCLE ( PLOT, 9, 0, 360) {Zeichnen des Kreises fuer Schicht O} 
END { SIEBENKREISE }. 





Bild 40. Programm SIEBENKREISE mit Bibliotheksprozeduren für 
die Grafik und einem rekursiven Algorithmus für das Zeichen von 
sieben Kreisen in einem Kreis 


“4 


definiert sind 21 (dieses anspruchsvolle Buch kann 
jedem fortgeschrittenen Programmierer empfohlen 
werden). PASCAL ermöglicht sowohl rekursive Kon- 
trollstrukturen mit Prozeduren und Funktionen, als 
auch rekursive Datenstrukturen mit Zeigern (Ab- 
schnitt 7). Obwohl jede Rekursion auf eine Iteration 
zurückgeführt werden kann (und dann auch sollte, 
z. B. bei der Berechnung der Fakultät), ist sie für man- 
che Problemstellungen nützlich. 


In Bild 39 ist das Objekt ein „‚Siebenkreis“ 22. Zu 
seiner Zeichnung wurde auf die Grafik-Bibliothek zu- 
rückgegriffen; die Prozeduren daraus sind im Pro- 
gramm Bild 40 kurz erläutert. 


Die benutzerdefinierte Prozedur KREIS7 ruft sich 
selbst auf, um in dem aktuellen Kreis (x.y) sieben 
weitere Kreise mit dem Radius r/3 zu erzeugen. Die 
Rekursion ist bei der Schicht 1 beendet. Schicht 0 be- 
deutet: ein großer Kreis ohne innere und äußere Sieben- 
kreise; Schicht 1: in der vorhergehenden Schicht 0 
sind sieben Kreise enthalten usw. Mögliche Schichten 
-1,-2... — die größer werdenden Kreise liegen an 
Schicht 0 - sind hier nicht programmiert. Nach unten 
werden die Schichten durch die Auflösung des Zei- 
chengerätes begrenzt, nach oben durch die Größe des 
Zeichenbogens; die Rekursion selbst könnte theore- 
tisch unendlich viele Schichten liefern. 


Dieses Programm ist ein Beispiel für eine direkte 
Rekursion. Indirekte Rekursion erfordern die schon 
erwähnte Vorwärtsdeklaration im Abschnitt 6.1 (ohne 
weitere Besprechung). 


Rückblickend auf diesen Abschnitt 6 kann nun ge- 
sagt werden, daß man ein PASCAL-Programm als eine 
Prozedur-Vereinbarung auffassen kann. Mit dem Un- 
terschied, daß diese ‚Prozedur‘ durch das Wortsym- 
bol program eingeleitet wird und die Parameterliste 
stark vereinfacht ist. Sie enthält nur Dateinamen 
ohne Typspezifikation. 


7 Dynamische Informationsstrukturen 


Bisher hat der Leser die sogenannten einfachen und 
strukturierten Datentypen kennengelernt. In diesem 
Abschnitt wird der Zeiger-Typ beschrieben, mit dem 
komplexe Datenstrukturen gebildet werden können. 


Dazu gehören 
® lineare Listen, 
® Baumstrukturen, 


@ Datenstrukturen zur rekursiven Abarbeitung arith- 
metischer Ausdrücke durch einen Compiler u. a. 


Diese Informationsstrukturen zeichnen sich dadurch 
aus, daß sie von den Eingabedaten oder von einem Al- 
gorithmus abhängen. Sie können daher nicht allein 
mit den einfachen und strukturierten Datentypen kon- 
struiert werden. Diese sind bekanntlich in einem Ver- 
einbarungsteil zu definieren und damit von statischer 
Natur (feste Zuordnung des Speicherplatzes). Bei ei- 


nem Familienstammbaum z. B. ist die jeweilige Ge- 
samtstruktur sicher von der betrachteten Familie ab- 
hängig; man bezeichnet sie daher als dynamisch. Der 
grundlegende Baustein — Eltern-Kind-Generations- 
folge - einer solchen Baumstruktur ist jedoch bekannt 
(und statisch). 


PASCAL sieht dazu den Zeiger-Typ (Pointer-Typ) 
vor, der an einen Datentyp fest gebunden ist. Die Ver- 
einbarung erfolgt durch das Voranstellen eines Pfeiles 
(T bzw. ‘) an den Typ bzw. an den Typ-Bezeichner 
(siehe dazu auch das Syntaxdiagramm in Bild 16, Ab- 
schnitt 4). Z. B. sieht die Vereinbarung einer Varia- 
blen P so aus: 


BP: TE 


T sei ein Typ-Bezeichner. Mit dem Aufruf der Stan- 
dardprozedur NEW{(P) wird eine dynamische Variable 
geschaffen, mit DISPOSE(P) wird sie gelöscht. Ein Zu- 
griff auf eine solche Variable erfolgt durch einen Zei- 
ger und ist daher von den anderen Zugriffsarten ver- 
schieden. Tabelle 3 zeigt eine Zusammenstellung für 
die Definition und den Zugriff auf Datentypen in 
PASCAL (nach |21.). Der Inhalt der dynamischen Va- 
riablen ist durch den symbolischen Namen PT zugäng- 
lich. Pf wird auch als Bezugsvariable — im Unter- 
schied zur Zeiger-Variablen P - bezeichnet. Jede dy- 
namische Variable vom Typ T hat also den gleichen 
Namen PT, deshalb geschieht der Zugriff über einen 
Zeiger. Als eine weitere Eigenschaft läßt sich daraus 
ableiten, daß ihr Gültigkeitsbereich nicht von einem 
Anweisungsteil abhängt: sie ‚lebt‘ solange, bis sie 
durch ein DISPOSE(P) vernichtet wird. 


Betrachtet man die Zeiger auf der Maschinenebene, 
so sind sie einfach Adressen. Eine Verkettung wird 
dadurch erzeugt, daß in einer adressierten Einheit von 
Speicherplätzen eine (oder mehrere) Adresse(n) für 
die nächste enthalten ist. Anzumerken bleibt aber, daß 
im Standard-PASCAL kein direkter Zugriff auf Adres- 
sen möglich ist; dies erfolgt nur durch den Compiler 


Tabelle 3. Vergleich der komplexen Datentypen 


Feld . A: ARRAY[O..1000] OF REAL Ali] 
Menge S: SET OF CHAR kein 
Verbund R: RECORD R.RE 
RE, IM: REAL 
END 
Datei F: PILE OF INTEGER F* 
dynamische TYPE PTR = “KNOTEN; kein 
Daten- KNOTEN = RECORD 
struktur {Inhalt}; 
NEXT: PTR 
END; 
VAR DB: PER; 


und Erzeugung einer dyn. 
Variablen mit NEW(P) 


(sonst wären PASCAL-Programme extrem maschi- 
nenabhängig). 

Für den Fall, daß ein Zeiger auf nichts mehr ver- 
weist, gibt es das Wortsymbol nil (Tabelle 1 im Ab- 
schnitt 2). Dieser Wert kann jedem Zeiger - also unab- 
hängig von dem Typ, an den er gebunden ist — zuge- 
ordnet werden. Damit werden die dynamischen Da- 
tenstrukturen begrenzt. 


7.1 Lineare Listen 


Eine mit Zeigern verkettete lineare Liste soll einen 
Einstieg für das Programmieren mit Zeigern liefern. 
Das Anwendungsprogramm zielt darauf ab, ein Ver- 
zeichnis für das Auftreten eines Buchstabens in einem 
Text herzustellen. Es wäre damit ein Ausgangspunkt 
zu einem Programm für eine Referenzliste. Da nicht 
gefragt ist, wie oft ein Buchstabe, sondern in welcher 
Zeile er auftritt, ist die Länge der Liste unbekannt. 


Zunächst Überlegungen zu dem erforderlichen 
Datentyp: Eine Verkettung von dynamischen Varia- 
blen erfolgt durch Zeiger, so daß ein Teil des Typs eine 
Referenz auf den nächsten der Liste enthalten muß. 
Das allein genügt natürlich nicht: es fehlt noch die In- 
formation über ein gefundenes Auftreten des gewähl- 
ten Buchstabens. Da unterschiedliche Datentypen ei- 
nen Baustein bilden sollen, ist ein Verbund die rich- 
tige Struktur: 


KNOTEN = RECORD 
INHALT : INTEGER; 
NAECHSTER : KNOTENZEIGER 
END; 


der in Anlehnung an Graphen den Namen KNOTEN 
erhält. Eine Komponente ist ein Zeiger (NAECHSTER) 
vom Typ KNOTENZEIGER, der auf den Verbund 
KNOTEN verweist: KNOTENZEIGER = T KNOTEN. 
Damit stehen zwei Datentypen zur Verfügung: der 
Zeiger-Typ KNOTENZEIGER und der Verbund-Typ 
KNOTEN. Die Zeiger-Variable ZGR und die dynami- 
sche Variable ZGRT sind grafisch in Bild 41 darge- 
stellt. 





berechenbarer Index alle identisch 


Test auf Enthaltensein alle identisch 
eines Elementes 

“ 

durch Komponenten- 
Bezeichner 


koennen 
verschieden sein 


sequentiell durch alle identisch 


Lesen oder Schreiben 


dyn. ueber Zeiger 


Zeiger-Variable dynamische Variable 


Z6R Z6R A 


Be — 


Bild 41. Grafische Darstellung 
einer Zeiger-Variablen und ei- 
ner generierten dynamischen 
Variablen 





Eingabe (input) 


PROGRAM COPYTEXT(INPUT, OUTPUT); 


VAR ZEICHEN: CHAR; 
BEGIN 
WHILE NOT 
BEGIN 
WHILE NOT 
BEGIN 
READ(ZEICHEN); 
WRITE(ZEICHEN) 
END {WHILE}; 
READLN; 
WRITELN 
END {WHILE} 
END {COoPYTEXT}. 


{COPYTEXT} 
EOF DO 


EOLN DO 


Programm 
PROGRAM VERZEICHNIS(INPUT, OUTPUT); 


PE 
KNOTENZEIGER 
KNOTEN 


"KNOTEN; 
RECORD 


[Zeiger-Typ} 


INHALT: 
NAECHSTER: 
END; 


INTEGER; 
KNOTENZEIGER 


AKTUELL, 

ZGR: 
ZEILENNUMMER: 
GESUCHT, 
ZEICHEN: 


KNOTENZEIGER; | ger-Variable 


INTEGER; 
CHAR; 


BEGIN 
GESUCHT := 'R'; 
ZEILENNUMMER := 1; 
AKTUELL := NIL; 
WHILE NOT EOF DO 

BEGIN 
WHILE NOT EOLN DO 
BEGIN 
READ(ZEICHEN); 
IF ZEICHEN = 
BEGIN 
NEW(ZGR); 
ZGR” .INHALT := 
ZGR“ .NAECHSTER := 
AKTUELL := ZGR 
END {THEN} 
END {WHILE}; 
READLN; 
ZEILENNUMMER  := 


GESUCHT THEN 


ZEILENNUMMER; 
AKTUELL; 


ZEILENNUMMER + 1 


END {WHILE}; 
WRITELN( ' BUCHSTABE 


ZEILEN-NUMMER(N)'); 
WRITELN; 
WRITE(GESUCHT: 5, "! ')5 
REPEAT 

WRITE(AKTUELL* .INHALT: 4); 
AKTUELL := AKTUELL“ .NAECHSTER; 
UNTIL AKTUELL = NIL; 
WRITELN 
END {VERZEICHNIS}. 





Ausgabe (output) 


BUCHSTABE ZEILEN-NUMMER (N) 


R 14 13 31 10 3 3 1 1 


Bild 42. Programm VERZEICHNIS ermittelt das Auftreten eines 
Buchstaben (,,R') in dem numerierten Programmtext COPYTEXT 
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Das Programm VERZEICHNIS (Bild 42) liest zu- 
nächst einen Text zeichenweise bis zum Dateiende ein 
und zählt dabei die Zeilen mit (Variable ZEILEN- 
NUMMER). Die bedingte Verzweigung enthält die Ab- 
frage, ob das eingelesene ZEICHEN dem gesuchten 
Buchstaben (hier ‚R‘‘) gleicht. Falls dies der Fall ist, 
wird eine neue dynamische Variable ZGRT geschaf- 
fen. Ihre Komponenten erhalten Werte und der Zeiger 
AKTUELL (er zeigt auf die aktuelle Position der linea- 
ren Liste) wird neu gesetzt. Bild 43 möge diese Teil- 
schritte verdeutlichen. 


Nach dem Ende des Einlesens wird eine kleine 
Überschrift ausgegeben. Dann erfolgt ein Rückwärts- 
gehen mit der Ausgabe der Komponente INHALT zum 
Ausgangspunkt der Kette; d. h. zu nil. Dies geschieht 
dadurch, daß der Wert des Zeigers AKTUELL den 
Wert der Komponenten AKTUELL.NAECHSTER er- 
hält. Dieser verweist auf die nächstverkettete Variable. 


Möchte man die Zeilennummern in gewohnter 
Weise in aufsteigender Reihung ausgegeben, so geht 


man zunächst bis zum ersten Eintrag zurück: in der 
„repeat‘-Anweisung entfernt man den „write“-Auf- 


ruf. Anschließend geht der Zeiger AKTUELL so lange 
(mit dem „write (.)'‘) vorwärts, bis er den letzten Ein- 
trag erreicht hat. Auf diesen weist noch der unverän- 
dert gebliebene Zeiger ZGR. 


In 21 findet der Leser ein Programm für die Erstel- 
lung einer Referenzliste von Namen; z. B. für die Be- 
zeichner in einem PASCAL-Programm. Da hier auch 
die Anzahl der Namen unbekannt ist, wird dazu eine 
lineare Liste angelegt. Jedem einzelnen Namen wird 
dann eine eigene Liste für die Zeilennummern zuge- 
ordnet. Die Speicherung der Namen (mit dem Daten- 
typ PACKED ARRAY |1...10| OF CHAR) erfolgt dort 
nach dem Prinzip der Schlüsseltransformation. 


Dem aufmerksamen Leser wird im Typ-Vereinba- 
rungsteil von VERZEICHNIS aufgefallen sein, daß der 
Name KNOTEN als Typ-Bezeichner bereits vor seiner 
Definition auftaucht. Die Vereinbarung des Verbun- 
des KNOTEN erfolgt erst in den folgenden Zeilen. Dies 
ist syntaktisch richtig und die einzige für Zeiger zuge- 
lassene Ausnahme von der Regel, daß in PASCAL je- 
der Name vor seiner Verwendung vereinbart sein 
muß. 


Bisher hatte ein Baustein der dynamischen Informa- 
tionsstruktur genau eine Referenz auf den nächsten 
Baustein. Gibt man ihm zwei oder mehrere Verweise 
auf andere, so lasse:. sich komplexe verkettete Struk- 
turen realisieren: binäre Bäume, Datenbanken usw. 


7.2 Abschließende Bemerkungen zu Zeigern 


Die feste Länge einer Zeichenkette PASCAL ist oft 
ein Hindernis für eine effiziente Textverarbeitung. 
Namen von (fast) beliebiger Länge lassen sich aber 
dann leicht verarbeiten, wenn man sich die Mühe 
macht, eine Zeichenkette STRING nicht durch ein ge- 
packtes Feld von Zeichen (PACKED ARRAY |...) OF 
CHAR), sondern durch eine verkettete Liste zu reali- 
sieren. Der Baustein besteht aus einer Zeichenlänge 


fester Länge - diesich am besten nach der Bitbreite des 
Computers richtet - und einem Verweis auf den näch- 
sten Baustein: 
CHUNKPTR = TCHUNK; 
CHUNK = RECORD 

NEXT: CHUNKPTR; 

LINE: PACKED ARRAY |1..CHUNKSIZE 

OF CHAR 
END; 

Die Zeichenkette STRING wird je nach Anforderun- 
gen durch einen Verbund beschrieben, der minde- 
stens einen Zeiger auf CHUNK (chunk: Klötzchen) 
enthält. Eine präzise Darstellung benötigt die Anzahl 
der enthaltenen Bausteine, die Gesamtanzahl der ein- 
getragenen Zeichen, das letzte Zeichen, den Status 
(lesend, schreibend, nicht fertig) usw., z. B.: 
STRING = RECORD 

W: CHAR; 

LENGTH: INTEGER; 

POSITION: 0..CHUNKSIZE; 

CHUNKNO: INTEGER; 

STATUS: (RD, WR, NO); 


Q nach dem Vereinbarungsteil existieren zwei Zeiger-Variable 
(gebunden an KNOTEN) 


AKTUELL 


nach dem ersten Aufruf NEW (ZGR) 


Z6R t AKTUELL 


nach ZGR # .. INHALT: = ZEILENNUMMER 


Z6R 


Bild 43. Grafische Darstellung für die Erzeugung einer 
verketteten Liste (zu Programm VERZEICHNIS in Bild 42) 


START, CURRENT: CHUNKPTR 
END; 


Mit dieser zunächst aufwendigen Konstruktion und 
einigen Prozeduren zum Erzeugen, Löschen, Schrei- 
ben, Lesen, Vergleichen usw. läßt sich ein Pro- 
gramm-Packet bilden, das vielen Anforderungen ge- 
recht wird (z.B. für einen Text-Editor). Dieser Vor- 
schlag ist aus 23. Eine etwas andere Lösung findet 
man in 6. 


Wegen einer gewissen Ähnlichkeit zu den Zeigern 
sollen hier noch die Puffer-Variablen erwähnt werden. 
Eine Puffer-Variable zeigt auf die aktuelle Position ei- 
ner Datei; ihr Inhalt ist die aktuelle Komponente der 
Datei. Sie ist automatisch mit der Datei (wie die Be- 
dingungen eof bzw. eoln) vereinbart; ihr Datentyp ist 
der Elementtyp der Datei: bei einer Textdatei char. 
Bild 44 enthält das Programm COPYTEXT zum Kopie- 
ren einer Textdatei. Das gleichwertige Programm mit 
READ(.) und WRITE(.) ist die Eingabe für das Pro- 
gramm VERZEICHNIS in Bild 42. 


@ nach ZGR t. NAECHSTER: = AKTUELL 


Z6R 4 


f nach AKTUELL : = Z6R 


AKTUELL AKTUELL # (=Z6R# ) 


Q nach einem erneuten NEW (ZGR) 


ZGR z6RA 


AKTUELL 
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8 PASCAL-Übersetzer 


Während in den bisherigen Abschnitten die Spra- 
che selbst beschrieben wurde, gilt dieser Abschnitt 
den PASCAL-Compilern. Aufgabe eines gut imple- 
mentierten PASCAL-Systems ist, dem Benutzer ein 
komfortables Werkzeug zur Programm-Entwicklung 
zur Verfügung zu stellen. Dazu gehören u.a. für das 
interaktive Arbeiten am Sichtgerät ein Texteditor, ein 
ausgereifter Übersetzer, ein Binder für das Zuladen 
von Bibliotheksprogrammen und Testhilfen für die 
lauffähigen Programmobjekte. Anmerkung: die in 
dieser Serie gezeigten Beispiele sind natürlich gete- 
stet und daher ohne Übersetzungsfehler. Das kleine 
Programm UEBUNG enhält typische Fehler (Bild 45). 


Eingabe (input) 





Die Puffer-Variable ist in INPUT und OUTPUT genau 
ein Zeichen. Definiert man dagegen z.B.: 








PROGRAM COPYFILE(EIN, AUS); 
TYPE GRUNDIYPF = +.:60% Fi 
VAR EIN, AUS FILE OF GRUNDTYP; 






so laesst sich in einer WüÜILE-Anweisung mit 

AUS” := Ein“; PUT(AUS); GET(EIN); 
die Datei EL nach AUS bequem kopieren. GRUNDTYP 
kann z.B. eine REAL-Groesse, aber auch z.B. ein 
Verbund sein! 






Programm 


PROGRAM COPYTEXT(INPUT, 


OUTPUT); 


BEGIN {[COPYTEXT} 
WHILE NOT EOF DO 
BEGIN 
WHILE NOT EOLN DO 
BEGIN 
OUTPUT” := 
GET(INPUT); 
PUT (OUTPUT 
END {WHILE}; 
READLN; 
WRITELN 
END {WHILE} 
END {COPYTEXT}. 


INPUT”; 





Ausgabe (output) 


Die Puffer-Variable ist in INPUT und UUTPUT genau 
ein Zeichen. Definiert man dagegen z.B.: 








PRUGRAH COPYFILE(EIN, AUS); 
TYPE GRUNDTYP = ..... ; 
VAR EIN, AUS FILE OF GRUNDTYP; 






so laesst sich in einer WHILE-Anweisung mit 

AUS” := Ein’; PUT(AUS); GET(EIN); 
die Datei EIN nach AUS bequem kopieren. GRUUDTYP 
kann z.B. eine REAL-Groesse, aber auch z.B. ein 
Verbund sein! 






Bild 44. Programm COPYTEXT mit den Puffer-Variablen INPUT | 
und OUTPUNT | 


PROGRAM UEBUNG(INPUT, OUTPUT); 


1 
2 
3 BEGIN 
4 
* 


*rr* 


IF BUCHSTABE 
RR ” 


1 
6 THEN WRITE('P 
ELSE WRITE(BU 
x.r* 73 


8 END 


{UEBUNG}. 


COMPILER ERROR MESSAGE(S). 


6: UNEXPECTED SYMBÜL. 
104: IDENTIFIER NOT DECLARED. 


Bild 45. Programm UEBUNG mit Syntax-Fehler 6 wegen einem „.;" 
vor ELSE 
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Der Übersetzer markiert die Position des erkannten 
Fehlers und hängt die Fehlernummer an, die am Ende 
des Programms kurz erläutert wird. Sieht man in ei- 
nem Buch oder in den Syntaxdiagrammen nach, so 
kann die Fehlerursache meist schnell gefunden wer- 
den. Bild 15 im Abschnitt 3.4 zeigte bereits einen Feh- 
ler zur Laufzeit, der automatisch zu einem Ausdruck 
der (einfachen) Variablen bei Programmabbruch führt. 
Bei Fehlern an strukturierten Variablen sind weitere 
Testhilfen notwendig. 


8.1 PASCAL-P 


Wie bereits im Abschnitt 1 erwähnt, hat der schon 
fast klassisch zu nennende PASCAL-P-Compiler die 
Verbreitung der Sprache stark beeinflußt und auch 
neue Impulse für die Entwicklung von Compilern ge- 
geben. Unter dem PASCAL-P-Compiler versteht man 
einen übertragbaren (portable) Übersetzer für die 
Sprache PASCAL, der aus einem PASCAL-Programm 
eine Zwischensprache — den sogenannten P-Code — 
erzeugt. An der ETH in Zürich entwickelt |24,, war er 
Ausgangspunkt für viele Implementationen von 
PASCAL auf Anlagen unterschiedlichster Größe. 





Ausgabe I: Programmliste 


9 PROGRAM FAKULTAET(INPUT, OUTPUT); 


9 
9 VAR 


N: 0... 135 
FAK: INTEGER; 


BEGIN 
READ(N); 
ME = 1% 
WHILE N > 1 DO 
BEGIN 
FAK ;= 
1 
END {WHILE}; 
WRITE(FAK) 
{FAKULTAET}. 


FAK * N; 
1 


NUIPUND-OVOVOSNAUNPUNMD— 


EN 


28 END 


BEGIN {FAKULTAET} 


READ(N) 


FAK:=1 


WHILE 


FAK:=FAK*N 


Test auf 0<=N<=13 


END {WHILE} 
WRITE(FAK) 


{Laenge: 10 Zeichen} 


[Rueckkehr vom Hauptprogramm} 
END {FAKULTAET} 

ı Aufruf des Hauptprogramms 

| FAKULTAET als Prozedur 


ı Stop 


Bild 46. Ausgabe des Programms FAKULTAET nach der Überset- 
zung mit dem PASCAL-P-Compiler (oben) und des P-Codes mit Er- 
läuterungen (unten). 


Kennzeichnend — und zunächst überraschend - für 
diesen Compiler ist, daß er in PASCAL selbst ge- 
schrieben ist. In dieser Form als Quelle ist er natürlich 
noch nicht lauffähig, d.h. er kann noch keine Pro- 
gramme übersetzen. Erst durch einen Ur-Übersetzer 
(bzw. Interpreter) des P-Codes (s. u.) erhält man einen 
ersten lauffähigen Compiler. Der P-Compiler - mit ca. 
4000 Zeilen ein großes Programm - ist selbst nach der 
Methode der schrittweisen Verfeinerung geschrieben 
und umfaßt die folgenden Sequenzen: 

1. Syntax-Analvyse, 

2. Syntax-Analyse 
Fehler, 

. Erzeugung der Compilertabellen, 

. Behandlung kontextbehafteter Fehler, 

. Adreßzuweisung an die Variablen, 

6. Erzeugung des Codes. 

Die beiden Punkte 5 und 6 lassen sich leicht einer spe- 

ziellen Maschine anpassen. Daher kommt man relativ 

schnell zu „seinem‘‘ Compiler, ohne die großen Teile 
1...4 selbst entwickeln zu müssen. Der interessierte 

Leser möge sich in 24, 25) näher informieren ( 25  ent- 
hält eine Aufsatzserie über den P-Compiler). Im weite- 
ren soll der P-Code näher betrachtet werden. 

Der P-Code kann als die Assemblersprache eines 
hypothetischen, stapelorientierten Computers (engl.: 
stack computer, im folgenden mit SC abgekürzt) auf- 
gefaßt werden. Charakteristisch für einen solchen 
Computer ist, daß alle Operationen auf dem Stapel 
(auch mit Keller bezeichnet) stattfinden. Einige Ta- 
schenrechner (z.B. die der Firma Hewlett-Packard) 
arbeiten nach diesem Prinzip; siehe daher auch den 
Beitrag über die Programmiertechnik IPS |26.. Da die 
meisten Mikroprozessoren einen Stapel im Haupt- 
speicher direkt verwalten (mit PUSH- und POP-Befeh- 
len), ist die Anpassung an den Befehlssatz der Zielma- 
schine vereinfacht. 

Der SC besteht aus einem linear adressierbaren 
Speicher und fünf Registern: 


mit Behandlung kontextfreier 


oa w 


PC Programm-Zähler, 

SP Zeiger auf die Spitze des Stapels, 

MP Zeiger auf die Parameter-Deskriptoren, 

NP Zeiger auf das aktuelle Datensegment, 

EP Zeiger auf den maximal benutzten Speicher. 
Ein Teil des Speichers enthält den P-Code des gelade- 
nen Programms, der andere die statischen Variablen 
im Stapel und die dynamischen Variablen (durch 
NEW (...) erzeugt) in der Halde, engl. heap. Stapel und 
Halde sind meist so organisiert, daß sie aufeinander 
zuwachsen, und, falls sie sich berühren, zu einem 
Langzeitfehler wegen Speichermangel führen. Ein 
Assemblerbefehl des SC enthält die Komponenten: ei- 
nen Operations-Code und bei Bedarf die Parameter P 
und Q. P steht meist für die Differenz der Blöcke zwi- 
schen Aufruf und Vereinbarung einer Variablen. Q 
dagegen gibt dann die relative Verschiebung zur Basis 
MP an. Das Datensegment enthält die Information 
über die aufzurufende Prozedur (bzw. Funktion): die 
Rückkehradresse, Parameter u.a. 

Das kurze Programm FAKULTAET soll als Beispiel 
für Anwendung des PASCAL-P-Compilers dienen. 
Bild 46 zeigt die Ausgabe des Programms nach der 
Übersetzung und den erzeugten P-Code. Eine As- 


sembler-Anweisung des SC ist wahlweise eine Zei- 
lenzählung (l...), eine Marke (L...) oder ein Assembler- 
befehl (beginnend mit einem Leerzeichen). Der vierte 
Buchstabe eines Befehls gibt den Datentyp an: inte- 
ger: I, real: R, boolean: B, char: C, procedure: P, set: S 
und Adresse: A. Die Tabelle 4 enthält einen Aus- 
schnitt der Assemblerbefehle. Die für Assemblerspra- 
chen typischen Sprünge (hier FJP und UJP) formen das 
klare Programm FAKULTAET in einen „Spaghetti- 
code“. 

Für den P-Code existiert ein Interpreter-Programm 
24, das den erzeugten Assemblertext einliest, assem- 
bliert und schließlich ausführt. Mit diesem Interpreter 
erhält man nach einer Eingabe für N den Wert von N!. 
Allerdings benötigt der Interpreter um den Faktor 10 
mehr Rechenzeit als der direkte Compiler (und Lader) 
auf der gleichen Rechenanlage. Für Produktionspro- 
gramm ist also die Ausführung über die Zwischen- 
sprache mit anschließender Interpretierung langsam. 
Dagegen wäre eine Anwendung des P-Codes auf 
einem Mikrocomputer denkbar, wenn eine größere 
Anlage die PASCAL-Programme übersetzt und er die 
einfachere Interpretation übernimmt. Kürzere Re- 
chenzeiten erhält man, wenn der ursprüngliche P- 
Compiler in einen speziellen Compiler für den Mikro- 
computer geändert wird. 

Auf der Basis des besprochenen P-Codes wurde der 
SC auf dem Einplatinen-Computer EUROCOM-I 
(Hersteller: Eltec Elektronik GmbH, Mainz) verwirk- 
licht. In der ersten lauffähigen Version benötigte der 
Interpreter auf der M6809-Maschine 12 Sekunden zur 
Berechnung der Funktion Ackermann (3, 4) 20). In 
der ELEKTRONIK erscheint dazu ein Aufsatz. 


8.2 Kommerzielle PASCAL-Compiler 

In diesem Sonderheft findet der Leser einen Aufsatz 
über kommerzielle PASCAL-Systeme (Welches PAS- 
CAL für welchen Computer?). Ohne die dort aufge- 
führten Produkte im einzelnen zu bewerten, muß an- 
gemerkt werden, daß nicht immer ein Standard-PAS- 
CAL geboten wird. Ein potentieller Benutzer wird es 
aber zu schätzen wissen, wenn er das PASCAL nach 
Jensen/Wirth |1: vorfindet und dann dazu natürlich 
die „‚Extras‘‘ des Herstellers. 


Tabelle 4. P-Code Befehlsliste (Auszug) 


Parameter 





















u P Q 
ADI 
CHK x x x 
sp x 
P x x 
DEC X ıiere Q 
ENT x Prozedureingang 
EQU x (x) eich" 
FJP x 
ıRT X (x) 
INC x 
XA x 
A x 
x x Lade Adresse der Variablen 
x x Lade Konstante vom Typ T 
x x Lade Hauptprogramm-Variable 
x x x Variable vom Typ T 
ahlige Multiplikation 
x r Aufrufsequenz 
traktion 
R x x Hauptprogramn 
here in die Variable 


ırausgang 
ingter Sprung nach 9 
nigung von M 






Erwähnenswert von den genannten Produkten ist 
die Pascal-MIKROENGINE von Western-Digital. Die- 
ser Rechner besitzt einen Hardware-Decodierer zur di- 
rekten Ausführung des P-Codes. Dieser P-Code ist auf 
eine 16-Bit-Architektur zugeschnitten und weicht von 
dem im letzten Abschnitt beschriebenen Code ab. 
Damit ist sicherlich der Weg für neue Computer- 
Architekturen gezeigt: nämlich, daß sich das 
Gerät nach den Erfordernissen der Sprache richtet und 
nicht wie bisher umgekehrt. Das UCSD-PASCAL 
(University of California, San Diego) ist ebenfalls be- 
merkenswert. Dieses Programmpaket umfaßt nicht 
nur den Compiler, sondern auch ein komplettes Flop- 
py-Disk-Betriebssystem, eine Programm-Bibliothek. 
einen Text-Editor, einen Programm-Binder u. a. mehr. 
Der Benutzer arbeitet daher mit einem eigenständigen 
System; alle Programme dazu sind in PASCAL erstellt. 
Von einer amerikanischen Firma (Sof Tech, San Die- 


g0) ist das UCSD--Pascal in Lizenz erhältlich. In diesem 


Zusammenhang ist auf 27 hinzuweisen. Dieses — für 
Anfänger geschriebene — Buch kann nur demjenigen 
empfohlen werden, der eine UGCSD-PASCAL-Version 
mit einem Grafik-Bildschirm benutzt (die Abwei- 
chungen vom Standard sind zum Teil erheblich). 
8.3 Erweiterungen 

Neben den schon im Abschnitt 6.4 angesprochenen 
Änderungen (Prozedur-Parameter und dynamische 
Feldgrenzen), bleiben dem geplanten internationalen 
Standard vor allem folgende Schwächen, die unter- 
schiedliche Lösungen gefunden haben: 


® \Wertzuweisungen an Felder, Mengen und Ver- 
bunde (zusätzlicher value-Vereinbarungsteil, z. B. 
PASCAL 6000 von CDC), 


® indexsequentielle Dateien 
(gibt es z. B. im Mikroprozessor PASCAL von TI). 


® Datentyp STRING 

(im UCSD-PASCAL mit wählbarer Länge, z.B. 

NAME |15)). 

Für die Einbindung von Assembler-Code hat es sich 
am vorteilhaftesten erwiesen, den Übersetzer mit 
Nicht-Standard-Prozeduren (bzw. Funktionen) zu er- 
weitern (z. B. die Prozedur TRAP im Z80-PASCAL 
von Zilog). Dies gilt auch für das Fehlen des Expo- 
nentations-Operators. 

Eine wesentliche Verbesserung der Programment- 
wicklung ist durch neue interaktive Editier- und 
Test-Methoden zu erwarten. Das heißt z. B.: der Über- 
setzer unterbricht beim Auftreten eines Fehlers seine 
Verarbeitung und ermöglicht dem Benutzer eine so- 
fortige Korrektur. Ein Arbeiten im „Dialog“ mit PAS- 
CAL wird dann auch verwöhnte BASIC-Programmie- 
rer zum Umsteigen veranlassen. 





In dieser Arbeit stand die Behandlung des sequen- 
tiellen PASCAL im Vordergrund. Das Standard-PAS- 
CAL hat trotz aller Diskussionen ein abgeschlossenes 
Konzept. Mit seiner konsequenten Strukturierung der 
Anweisungen und Daten hat PASCAL seinen Platz un- 
ter den Programmiersprachen. Weiterentwicklungen 
betreffen das wichtige Gebiet der Verarbeitung paral- 
leler Prozesse (Betriebssysteme u. a.). Neben dem be- 
reits zitierten Concurrent-PASCAL 10 und MODU- 
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LA-2 11 ist in dem Zusammenhang noch PORTAL zu 
nennen 28. 

Die hier dargestellten Programmbeispiele wurden auf der Rechenanlage 
Cyber 175 (Control Data Corp.) des Leibnitz-Rechenzentrums der Bayerischen 
Akademie der Wissenschaften, München, erstellt. Der Verfasser dankt den 
Studenten W. Axmann und F. Zinoni für ihre Mitarbeit an einigen Program- 


men sowie seiner Frau für ihre hilfreiche Unterstützung. 
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zum Thema 


Mikroprozessoren 


Produkte — Anwendungen — 
Tendenzen 


Das Sonderheft III der ELEKTRONIK über 
Mikroprozessoren ist die Folge-Publikation 
der inzwischen vergriffenen Sonderhefte 

| und Il, hat aber daraus nur die immer 
wieder zur Orientierung und zur Festi- 
gung der Terminologie gerne gelesene 
Einführungsarbeit aus Heft | übernom- 
men, diesmal aber in gründlich überar- 
beiteter Form, der heutigen Situation 
angepaßt. 


Es folgen in übersichtlicher, systemati- 
scher Zusammenstellung 16 inzwischen 











in der ELEKTRONIK erschienene Arbei- 
ten, die den fortgeschrittenen Mikropro- 
zessor- und Mikrocomputer-Anwender 
ansprechen. Kern dieser Serie ist vor 
allem die Vorstellung der 16-Bit-Prozes- 
soren 8086, MC68000, Z8000 und 9440, 
die bekanntlich eine neue Ära in der 
„Mikrocomputerei‘ einleiten und die 
sorgfältig studiert und verglichen sein 
wollen, bevor man sich für einen von 
ihnen entscheidet. 


Zwei neue Arbeiten über das Editieren 

und Assemblieren sowie über einen uni- 
versellen Cross-Assembler wurden spe- 
ziell für den Software-Mann hinzugefügt. 


Alles in allem spiegelt Sonderheft Ill 
sehr klar die Weiterentwicklung auf 
diesem Sektor wider: 
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@ Neue Produkte bieten mehr Möglich- 
keiten: Lohnt es sich, sie einzusetzen? 

@ Welchen Aufwand erfordert die 
Anwendung? 

@ \Velchen Weg beschreitet die uP- 
Technik? Wie wird man in Zukunft 
die Software erstellen? 


Das sind die aktuellen Fragen, die Ent- 
wickler und Manager gleichermaßen 
interessieren — ja interessieren müssen. 
Genau diese Themenkreise behandelt 
das neue Sonderheft. Es erspart mühe- 
volles Nachschlagen in zahlreichen Ein- 
zelheften, aber auch das Sammeln von 
Firmenunterlagen und Fotokopien. Am 
Schluß des Heftes ist ein umfangreiches 
Tabellenwerk mit den Anschriften der 
Hersteller- und Vertriebsfirmen aufgeführt. 
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Dipl.-Ing. Franz-Josef Dorfner 


Ein Mikrocomputer — 


PASLAL. 


An der Kalifornischen Universität von San Diego 
wurde von Kenneth Bowles sowie seinen Mitarbei- 
tern das Wirthsche PASCAL modifiziert und erwei- 
tert, was unter der Bezeichnung UCSD-PASCAL be- 
kannt geworden ist. Diese UCSD-Version ist mit be- 
sonderer Berücksichtigung der Praxisorientiertheit 
und der Implementierbarkeit auf den heutigen Mikro- 
rechnern entwickelt worden. Mittlerweile ist PAS- 
CAL schon auf nahezu allen gängigen Rechnern 
bzw. Prozessoren implementiert worden. Die tech- 
nisch bemerkenswerteste und für den Anwender 
auch leistungsfähigste Implementation der Pro- 
grammiersprache PASCAL gelang der US-Firma 
Western Digital in Form der „PASCAL-MICROENGI- 
NE“. Diese PASCAL-Maschine, eingebaut in ein Ge- 
häuse mit zwei 8-Zoll-Floppy-Disk-Drives und 
Stromversorgung wird beschrieben. Unter der Be- 
zeichnung SE-90 wird sie von der Firma Spe- 
zial-Electronic vertrieben. 


1 P-Code-Maschine 


Wenn auch in den letzten Jahren durch die Verwen- 
dung von höheren Programmiersprachen,. wie 2. B. 
PASCAL, die Softwareerstellung für den Programmie- 
rer immer komfortabler wurde, so hat sich auf der un- 
tersten Rechnerebene bisher nichts geändert. Heutige 
Rechner und auch noch solche in absehbarer Zukunft 
arbeiten immer noch nach der zweiwertigen Logik. 
Das heißt, die arithmetisch-logische Einheit (ALU) ei- 


Bild 1. 
benutzten PASCAL-Compiler arbeiten interpretativ: 


Die meisten in Zusammenhang mit Mikroprozessoren 
Der PAS- 


CAL-Compiler generiert den P-Code, der dann über einen Soft- 
ware-Interpreter in den Maschinencode des jeweiligen Prozes- 
sors übersetzt wird. Die Interpretation jeder P-Code-Instruktion 
benötigt in der Regel mehrere Prozessorinstruktionen 


Bild 3. Ein PASCAL-P-Code-Übersetzer wandelt den vorher 
compilierten P-Code in den Maschinencode des Zielprozessors 
um. Jede P-Code-Instruktion wird in einen oder mehrere Ma- 
schinenbefehle übersetzt 
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konzipiert 





nes Prozessors kennt nur die Zustände „Low“ oder 


„High‘ bzw. „0“ oder 

Um ein in PASCAL geschriebenes Programm dem 
Rechner verständlich zu machen, muß dafür gesorgt 
werden, daß das PASCAL-Source-Programm (Quel- 
lentext) in eine für den Rechner verständliche Eins- 
Null-Darstellung umgesetzt wird. Diese Umsetzung 
wird von einem Compiler durchgeführt. Dabei sind 
natürlich mehr oder weniger effektive Lösungsmög- 
lichkeiten denkbar. (Siehe hierzu Bild 1...4). 


Dabei spielt auch die Portabilität eine große Rolle. 
Portable Programme sind auf Rechnern mit unter- 
schiedlichen Befehlssätzen lauffähig. Die gemein- 
same Ebene, auf der die Programme ausgetauscht 
werden können, ist ein Zwischencode. Im Falle von 
PASCAL ist dies der sogenannte P-Code. Er ist ein op- 
timaler Instruktionssatz für die Ausführung von PAS- 
CAL-Programmen. Er beinhaltet Befehle, die direkt 
den im PASCAL-Programm ausgeführten Funktionen 
entsprechen. 


Der P-Code ist so optimiert, daß die am häufigsten 
benutzten PASCAL-Operationen den geringsten 
Speicheraufwand benötigen und mit der größtmögli- 
chen Geschwindigkeit ausgeführt werden können. 
Zum Beispiel bestehen alle P-Code-Instruktionen aus 
nur einem Byte und für die meisten Zugriffe auf Daten- 
felder wird nur ein zusätzliches Byte als Zeiger benö- 
tigt. Soll beispielsweise ein PASCAL-Programm 
auf dem Prozessor Z80 laufen, so muß der P-Code 
softwaremäßig interpretiert werden, oder eine weitere 


relocatibler 
Maschinencode 


Bild 2. Andere PASCAL-Compiler übersetzen die PASCAL- 
Quellenprogramme direkt in den Maschinencode des jeweiligen 
Prozessors. Damit laufen die PASCAL-Programme auf einer 
Rechnerarchitektur, die für diese Sprache nicht effizient ist. Dar- 
aus resultiert eine große Zahl von notwendigen Maschinenin- 
struktionen 


Bild 4. Die PASCAL-MICROENGINE benutzt keines der in Bild 
1...3 geschilderten Verfahren. Der PASCAL-Compiler übersetzt 
das Quellenprogramm in den P-Code, den der Prozessor als seine 
spezifische Maschinensprache direkt ausführt 


Umsetzung erzeugt aus dem P-Code den prozessor- 
spezifischen Maschinencode. 

Diese Vorgehensweise entspricht der „klassischen“ 
Methode. Das heißt, die Implementierung der Sprache 
erfolgt auf einem schon existenten, von seiner Archi- 
tektur her nicht unbedingt optimalen Rechner. Man 
kann auch überspitzt sagen, die Sprache wird auf eine 
bestehende Hardwarekonfiguration gezwängt. 

Bei der „PASCAL MICROENGINE“ wurde ein völ- 
lig neuartiges Systemkonzept verwirklicht. Hier 
wurde erstmalig die Hardware an die Software ange- 
paßt und damit an die speziellen Belange der Pro- 
grammiersprache PASCAL. Western Digital reali- 
sierte hardwaremäßig die sogenannte Pseudo-P- 
Code-Maschine. Der P-Code ist bei dem 16-Bit-Prozes- 
sor dieser Maschine per Firmware in drei ROMs abge- 
legt. Damit ist der Befehlssatz dieses Prozessors iden- 
tisch mit dem P-Code, d. h. die MICROENGINE ist mi- 
kroprogrammiert. 

Der P-Code kann hier vom Prozessor direkt ausge- 
führt werden. Es ist keine softwaremäßige Interpreta- 
tion oder eine weitere Umsetzung notwendig. Daraus 
resultiert eine schnellere Programmausführung ge- 
genüber herkömmlichen Implementationen. Der Ge- 
schwindigkeitsvorteil liegt bei ca. fünf- bis zwanzig- 
fach. 


2 Hardware 


Berücksichtigt man nicht das Floppv-Disk-System 
und die Stromversorgung, so ist der Computer SE-90 
auf einer Platine von nur 8x 16 Zoll untergebracht 
(Bild 5). Diese Single-Board-Version wird auch von 
Spezial-Electronic angeboten und eignet sich beson- 
ders für OEM-Anwendungen. 

Der Kern des PASCAL-Computers ist der Prozessor 
WD 9000 von Western Digital. Dieser stackorientierte 


Serielle Parallel-Port 
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64-K-RAM 


16-Bit-MOS/LSI-Prozessor ist ein Chipsatz, der die in 
der höheren Programmiersprache PASCAL geschrie- 
benen Programme direkt ausführt. Der Chipset besteht 
aus fünf jeweils vierzigpoligen Chips: 

® Arithmetik-Baustein 

enthält die arithmetisch-logische Einheit, die Mi- 

kroinstruktionsdecodierung und den Registerfile, 
@ Steuerbaustein 

enthält den Mikroinstruktionszähler, die Ablauf- 

steuerung und die Ein-/Ausgabe-Steuerlogik, 
@ drei „„Mikroms‘“ 

jedes ROM ist 512 x 22 Bit organisiert, sie enthalten 

die Mikroinstruktionen. 

Der Prozessor wird von einem Vierphasentakt mit 
einer Frequenz von 3 MHz getaktet. Für die Takter- 
zeugung hat Western Digital den Baustein WD 2143 
entwickelt. 


Der Prozessor verfügt über eine Floating-Point- 
Hardware sowie über eine hardwaremäßige Multipli- 
kation und Division (Instruktionen für 16-Bit-Multi- 
plikation und 16-Bit-Division). Die V/O-Ports sind 
Memory-Mapped, d.h. ein V/O-Port wird wie eine 
Speicherzelle behandelt. Die Programmierung dieser 
V/O-Ports ist in der höheren Programmiersprache 
PASCAL möglich (siehe hierzu das Programmbeispiel 
in Bild 6). Der Prozessor verfügt auch über die beiden 
Befehle ‚Signal‘ und ‚„Wait on Semaphore‘“. Damit 
können Programmsynchronisierungen realisiert wer- 
den. 


Der PASCAL-CGomputer SE-90 verfügt bereits über 
64 KByte dynamischen RAM-Speicher mit Refreshlo- 
gik. Es stehen zwei serielle V-24-Schnittstellen mit ge- 
trennteinstellbarer Übertragungsrate von 110...19 200 
Baud zur Verfügung. Als Schnittstellencontroller ist 
der Baustein WD 1931 eingesetzt, der sowohl asyn- 


Floppy-Disk-Controller 
DMA-Controller 


Re : 
Re, ah 


Floppy-Disk-Anschluß 
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Prozessor 


Bild 5. Die Computerplatine enthält alle Bauelemente der MICROENGINE 
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chrone wie auch synchrone Datenübertragung ermög- 
licht. Pinkompatibel zu diesem Baustein ist der 
WD 1933, mit dem auch bei entsprechender Treiber- 
software die Datenübertragungsprotokolle SDLGC, 
HDLC oder ADCOCP realisiert werden können. 


Zur Verfügung steht auch noch ein Parallel-Port in 
der Form des programmierbaren Interface-Bausteins 
8255A. Dieser hat drei 8 Bit breite Ports, die individu- 
ell programmiert werden können. Die Voreinstellung 
dieser Ports erfolgt beim Laden des Betriebssystems 
und zwar: Port A zu einem 8-Bit-Eingangsport, Port B 
zu einem 8-Bit-Ausgangsport und das Port C als Kon- 
trollport (Handshake-Leitungen). Es kann dann am 
Parallel-Port jeder Drucker mit einer Centronics-Stan- 
dardschnittstelle betrieben werden. Ein Drucker mit 
serieller Schnittstelle kann an das serielle Port ange- 
schlossen werden. Auf dem Computer-Board befindet 
sich auch die gesamte Logik für den Floppy-Disk-An- 
schluß. Verwendet werden die beiden Bausteine 
FD 1791 als Floppy-Disk-Controller und der DM 1883 
als Direct-Memory-Access-Controller. 

Es können bis zu vier Floppy-Antriebe desselben 
Typs angeschlossen werden. Der Floppy-Disk-Con- 
troller ist per Schalter auf einfache oder doppelte 
Schreibdichte und auf 8-Zoll- oder 5'/,-Zoll-Lauf- 
werke einstellbar. Es können sowohl einseitige wie 
auch doppelseitige Floppy-Systeme verwendet wer- 
den. Das System SE-90 ist mit zwei 8-Zoll-Floppy- 
Disk-Laufwerken ausgestattet, wobei zwischen einsei- 
tigen und doppelseitigen ausgewählt werden kann. 


3 Software 

Lauffähig auf dem Computersystem SE-90 ist die 
Programmiersprache PASCAL in der Version III.0 von 
der Universität von San Diego mit dem UCSD-Be- 
triebssystem. Über die Programmiersprache PASCAL 
sollen hier keine Aussagen gemacht werden (siehe 
hierzu die Aufsätze in diesem Sonderheft). Es soll hier 
nur über das UCSD-Betriebssystem berichtet werden. 
Bemerkenswert ist, daß das gesamte Betriebssystem in 
PASCAL geschrieben ist. 


Das UCSD-Betriebssystem ist hierarchisch aufge- 
baut und arbeitet nach der Menütechnik. Das heißt, es 
ist ein interaktives System. Dem Benutzer wird stets 
eine Vorschlagzeile auf der Konsole ausgegeben, die 
ihn über die möglichen Kommandos entsprechend 
der hierarchischen Ebene im Betriebssystem informie- 
ren. Nach der Initialisierungsphase meldet sich das 
System in der höchsten Kommandoebene. Durch Ein- 
gabe eines Kennbuchstaben können die folgenden 


a b 


program io_ write; (* i/o-programmierung *) 


const port_b = -992; (* adresse des seriellen ports b *) 
2 ,=.65; (* zu sendendes Zeichen 'A' *) 


» record case boolean of 
true: (a:integer); 
false:(p:”integer); 
end; 


EXIT IC: 
SEG PROC 


1 


Moduln des Betriebssystems aktiviert werden: 
@ Bildschirmorientierter Editor 

@ File-Manager 

@® PASCAL-Compiler 

® Library 

® Linker 

® Eine Reihe von Unterstützungsprogrammen. 

Der bildschirmorientierte Editor bietet dem An- 
wender den größten Komfort. Das Betriebssystem ver- 
fügt zusätzlich über zwei weitere Editoren, den zei- 
lenorientierten Editor (aufzurufen mit „YALOE‘‘) und 
einen Editor für sehr große Files, z. B. für die Textbe- 
arbeitung (aufzurufen mit „L2“). 

Der File-Manager ist für die Dateienverwaltung zu- 
ständig. Der Basisfile des Betriebssystems ist der 
Workfile. Dieser ist eine Kopie des gerade bearbeiteten 
Files und hat auf der Diskette den Namen ‚SY- 
STEM.WRK.TEXT‘“, wenn es ein Textfile ist, oder 
„SYSTEM.WRK.CODE“, wenn es ein Codefile ist. Der 
PASCAL-Compiler führt die Umsetzung des PAS- 
CAL-Source-Programmes in den P-Code aus. Norma- 
lerweise wird der Workfile compiliert. Ist kein Work- 
file vorhanden, so fragt das System, welcher File com- 
piliert werden soll. Der UCSD-PASCAL-Compiler bie- 
tet die Möglichkeit, Compileroptionen, wie z. B. Er- 
stellen eines Compilerlistings, anzugeben. 

Das UCSD-PASCAL unterstützt die separate Compi- 
lierbarkeit. Mit dem Linker können Programmteile 
gebunden werden. Werden in einem zu erstellenden 
Programm Routinen aus der System-Library verwen- 
det, so wird bei der Compilation automatisch der Lin- 
ker aufgerufen. Das Betriebssystem hat Unterstüt- 
zungsprogramme wie: Disketten-Formatierungspro- 
gramm, Setup-Programm für die Anpassung ver- 
schiedener Terminals an das System, Calculator-Pro- 
gramm, womit die PASCAL-Maschine im Tischrech- 
nermodus arbeitet, Disassembler und weitere. 


4 Entwicklungsziele 

Das System SE-90 ist zukunftsorientiert und wird 
auch neueren Entwicklungen gerecht. Zur Zeit ist ein 
Hard-Disk-Anschluß mit einer 20-MByte-Platte in 
Entwicklung. Ebenso arbeitet man in Verbindung mit 
der 20-MByte-Platte an einem Mehrplatzsystem. 

Für Anwender, die glauben, ohne BASIC nicht aus- 
zukommen, wird etwa Herbst 1980 ein BASIC-Inter- 
preter verfügbar sein. 


Literatur 
I Western Digital: Handbuch .„PASCAL MICROENGINE“, 


BLOCK OFFSET= 2 
0001 


SEGMENT= 
0013 
block #4 1 
OFFSET 
0(000): 
1(001): 
3(003): 
4004): 
7007): 
9(009): 
10(00A): 
12(00C): 
13(00D): 
16(010): 


1 PROCEDURE= 1 BLOCK= 1 
DATA SEGMENT SIZE: 
offset in block= 6 


SLDC 6 
LSL 0 
SPR 

LDCI 
STL 

SLDL 
LDCB 


HEX CODE 


992 
1 


1 

65 
BLKEXIT 

1 


Bild 6. In diesem Programmbeispiel wird ein E/A-Port programmiert. Das Quellenprogramm (a) ist in (b) disassembliert im P- 
Code (in mnemonischer und sedezimaler Darstellung) 
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Dipl.-Ing. Heinz Kitzhöfer 


System- 


PASLAL 


Programmiersprache mit abgerundetem Konzept 


Nachdem in der ELEKTRONIK die Programmier- 
sprache PASCAL bereits ausführlich beschrieben 
wurde, sollen hier die speziellen Gesichtspunkte 
dargestellt werden, die zur Entwicklung des Sy- 
stem-PASCAL geführt haben. Diese Sprache hebt 
sich durch das abgerundete Konzept sowie beson- 
dere Eingeschaften von anderen PASCAL-Erweite- 
rungen ab. 


Wie muß ein modernes Softwarewerkzeug aussehen? 


Einerseits gezwungen durch Kostensteigerung im 
Software-Bereich andererseits angeregt durch neue 
Programmier- und Sprach-Konzepte aus dem Bereich 
der Informatik suchte die Firma Dietz schon vor Jahren 
nach einem modernen Werkzeug, das sowohl die Sy- 
stem- und Standardsoftware-Entwicklungsgruppen 
im eigenen Hause als auch einen größeren Kunden- 
kreis in die Lage versetzen sollte, effektiver zu arbei- 
ten. 


Dabei war zu berücksichtigen, daß das schwächste 
Glied einer Kette alle Verbesserungen an den übrigen 
Stellen eines Systems nutzlos machen kann; so muß 
eine erfolgreiche Optimierung im Bereich der Soft- 
ware auf alle Lebensphasen eines Programms Einfluß 
nehmen — von der Systemanalyse über den Entwurf, 
die Implementierung, den Test, die Installationbishhin 
zur Wartung und Pflege und eventuellen Erweiterun- 
gen und Änderungen. 


Das bedeutet, eine moderne Programmiersprache 
muß anwendungsnahe Strukturen besitzen, einen 
Top-Down-Entwurf begünstigen, und sie muß leicht 
lesbar und möglichst selbstdokumentierend sein. 


Da der Compiler ja selbst auch ein Software-Produkt 
ist, muß auch er in einer Sprache implementiert sein, 
die diese Eigenschaften besitzt. Ideal ist es, wenn der 
Compiler in seiner eigenen Sprache geschrieben ist, 
denn dann muß nicht mehr die Programmiersprache 
und eine Compilersprache gepflegt werden, sondern 
beide Sprachen sind identisch. 


PASCAL - die geeignete Gastsprache 


Am Ende dieser Überlegungen unter den oben ge- 
nannten Gesichtspunkten fiel die Wahl auf PASCAL. 
Diese Programmiersprache ist zwar nicht so gängig 
wie z.B. FORTRAN, ALGOL, COBOL oder BASIC, 
aber sie besitzt im Gegensatz zu diesen Sprachen fast 
alle Eigenschaften, die die gestellten Anforderungen 
erfüllen. 


In der Tat verfügt die von Prof. Niklaus Wirth ent- 
worfene Sprache über einen außerordentlich wirksa- 
men, aber zugleich sinnvoll begrenzten Umfang an 
Kontrollstrukturen, Datentypen, Datenstrukturen und 
anderen Funktionen, welche die effiziente Erstellung 
von Programmen nahezu erzwingen. 


Nachdem die Vorzüge dieser Sprache schon weit- 
gehend dargestellt worden sind, soll hier gezeigt wer- 
den, wie auf PASCAL ein universelles Software- 
Werkzeug aufgebaut worden ist. 


Ein optimaler PASCAL-Compiler 


Der erste Schritt mußte natürlich sein, einen PAS- 
CAL-Compiler zu erstellen, der die Strukturen und 
Funktionen der Sprache PASCAL optimal auf die 
Hardware der Rechner-Familie DIETZ-621 umsetzte. 
Der Gompiler-Entwurf und die anschließende Imple- 
mentierung wurde an der Universität Kiel am Lehr- 
stuhl für Informatik von Prof. Langmaack durchge- 
führt. 


Die hohe Effizienz des von diesem PASCAL-Compi- 
ler erzeugten Maschinencodes zeigt sich darin, daß im 
Vergleich zu guter Assembler-Programmierung in be- 
zug auf Laufzeit und Codelänge ein Faktor von durch- 
schnittlich nur 1,5 auftritt; das ist um so bemerkens- 
werter, da diese Tests an betriebssystemnahen Mo- 
duln durchgeführt wurden. Damit steht der Einsatz 
von PASCAL auch in zeitkritischen Prozeß-Anwen- 
dungen offen. In der Vergangenheit mußte unter an- 
derem wegen der Anforderungen an die Verarbei- 
tungsgeschwindigkeit und dem Speicherbedarf im 
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Bereich der Prozeßsteuerung und der Echtzeit-Verar- 
beitung häufig die hardwarenahe Programmierung im 
Assembler erfolgen. 


Die wachsende Komplexität der zu erstellenden 
Software, die wachsende Bedeutung der Pflegekosten 
gegenüber dem Erstellungsaufwand und die erhöhten 
Anforderungen an die Zuverlässigkeit verlangen je- 
doch eine eher problemorientierte als maschinennahe 
Programmierung. 


Das erweiterte PASCAL-Programmiersystem 


Zum Einsatz in diesen Problembereichen mußte ein 
Weg führen, der die Erfüllung folgender Forderungen 
gewährleistet: 


® Über den im Dietz-PASCAL-Compiler implemen- 
tierten Sprachumfang sollten keine Erweiterungen 
der Sprache erfolgen, 


— um die Einfachheit und Klarheit der Sprache zu 
erhalten, 


-und um dem Gesichtspunkt der Kompatibilität 
Rechnung zu tragen und einer künftigen Nor- 
mung der Sprache nicht entgegenzuarbeiten. 


® Das Verfahren, die genannten Anwendungsberei- 
che einem PASCAL-Programmiersystem zu er- 
schließen, sollte auch auf weitere Anwendungsbe- 
reiche übertragbar sein. 




















Bild 1. Zusammenwir- 
ken der einzelnen Kom- 
ponenten des PAS- 
CAL-Bediensystems 
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© Das PASCAL-Programmiersystem selbst sollte 
nicht mit dem Erschließen dieser Anwendungsbe- 
reiche belastet werden, 


— um dieses Programmiersystem einfach zu halten, 


—-und um eine Entbündelung bezüglich unter- 
schiedlicher Anwendungsbereiche zu ermögli- 
chen. 


Das Konzept von System-PASCAL 


Es wurde deshalb folgendes Konzept implemen- 
tiert, das bei Dietz unter dem Namen System-PASCAL 
bekannt ist: 


® je Anwendungsbereich wird ein Satz von Funktio- 
nen in einer Bibliothek bereitgestellt. 


@ Diese Funktionen sind mit den Mitteln der Sprache 
PASCAL aufrufbar. Dazu wird auf das - auch von 
Prof. Wirth vorgeschlagene — Mittel der ‚externen 
Prozeduren‘ zurückgegriffen. 


®@ Diese Prozeduren werden dem Programmiersystem 
über einen „Prolog“ als (Quasi-)Standardprozedu- 
ren bekannt gemacht. 


Kurz: System-PASCAL ist eine Erweiterung des 
Anwendungsspektrums durch die Aufrufbarkeit von 
problemorientierten, externen Prozeduren mit den 
Mitteln der Sprache PASCAL. 


Ein wesentliches Merkmal dieses Konzeptes ist die 
Tatsache, daß alle Prüfungen, die zur Übersetzungs- 
zeit vom Compiler für PASCAL-Standard-Funktionen 
durchgeführt werden können, auch für die System- 
PASCAL-Prozeduren gemacht werden können. Das 
heißt im Klartext, daß zum Beispiel Parameterprüfun- 
gen zur Laufzeit komplett entfallen. 


Die Komponenten des PASCAL-Bediensystems 


Bild 1 zeigt das Zusammenwirken der einzelnen 
Komponenten des PASCAL-Bediensystems. Der 
Compiler erzeugt in gleicher Weise den Code eines 
abgeschlossenen PASCAL-Programms, wie auch den 
eines externen Moduls, das jeweils aus einer oder 
mehreren Prozeduren bestehen kann. Deklarationen, 
die anwendungsspezifisch geordnet sind, erhält der 
Compiler dabei automatisch aus einem System- 
Prolog. 


Externe Moduln können entweder als Einzeldateien 
gehalten werden oder über das Bibliothekssystem 
BIBSYS zu Benutzer-Bibliotheken zusammengefaßt 
werden. Die Benutzer-Bibliotheken können auch vom 
Anwender definierte Assembler-Routinen enthalten. 


Daß darüber hinaus die Bibliotheken sprachunab- 
hängig sind und damit von allen bei Dietz verfügbaren 
Compilern benutzt werden können, liegt in der inter- 
nen Struktur des Gesamtprogrammiersystems be- 
gründet. 


Der Binder sammelt alle für ein spezielles PAS- 
CAL-Programm notwendigen Elemente — wie Proze- 
duren, Funktionen und Operatoren — aus der anwen- 
dungsspezifischen System-Bibliothek (die eindeutig 
mit dem entsprechenden System-Prolog verknüpft 
ist). den externen Moduln und den Benutzer-Biblio- 
theken. Der Binder unterstützt Overlav-Definition in 
Baumstruktur, wobei die Baumzweige dynamisch 
während der Laufzeit auf- und abgebaut werden. 

Der entstandene relozierbare Code wird durch den 
Lader wählbar vorab oder bei jedem Start des Pro- 
gramms durch Adreß-Substitution in absoluten Ma- 
schinen-Code gewandelt. 


Die Funktionsgruppen 
des Programmiersystems System-PASCAL 


Der Einsatz von System-PASCAL in unterschiedli- 
chen Anwendungsbereichen ist durch das Anbinden 
von Basis-Funktionen ermöglicht, die wie schon er- 
wähnt über die Schnittstelle der „PASCAL-procedu- 
re“ und der „PASCAL-function“ mit der Program- 
miersprache verknüpft sind. Diese Basis-Funktionen 
lassen sich in zwei Gruppen einteilen, die einmal den 
Bereich der Standard-Betriebssystem-Funktionen um- 
fassen, die allen Sprachen direkt zugänglich sind, und 
zum anderen aus komplexen Moduln bestehen, die 
speziell auf das System-PASCAL hin entwickelt oder 
zumindest an dieses angepaßt worden sind. 

Bild 2 zeigt grafisch beide Funktionsgruppen. 


Funktionen des Betriebssystems 


Zu den direkt verfügbaren Betriebssystemfunktio- 
nen gehören 


© der sequentielle und direkte File-Zugriff über den 
Modul FIAC (File Access), 


© die Nutzung der außerordentlich leistungsfähigen 
SPOOL-Funktionen. 


® Über die „normalen“ Eigenschaften eines SPOOL 
hinaus können SPOOL-Aufträge selektiert, modifi- 
ziert und in ihren Eigenschaften verändert, gelöscht 
oder nach Abbruch neu aufgesetzt werden. Änder- 
bare Eigenschaften sind u. a. Priorität, Formularart, 
lang- oder kurzfristige Sicherung von Daten. Ferner 
kann die Abarbeitung solcher Aufträge, die nach 
Priorität und Formularart gesteuert ist, unterbro- 
chen, fortgesetzt und wiederholt werden. Die Daten 
können für weitere SPOOL-Aufträge erhalten blei- 
ben. Der SPOOL-Betrieb kann sofort oder verzögert 
beendet werden. 


© Die Einbettung in das Rechnernetz-System DIXOS. 
DIXOS verbindet Rechner der Familie DIETZ-621 
zu Netzwerken, die physikalisch beliebig ver- 
mascht werden können, und die von allen Rechnern 
—- und damit von allen Benutzern — Zugriff auf die 
Betriebsmittel des Gesamtsystems gewähren. Zu 
den verfügbaren Betriebsmitteln gehören Periphe- 
riegeräte, Dateien, aber auch Rechenkapazität. Die 
Anwenderprogramme sind unabhängig davon, ob 


sie in einer Einrechnerkonfiguration oder in einem 
Netz eingesetzt werden. 


® Das Betriebssystem DIXOS arbeitet zum Teil dyna- 
misch, d.h. bei Ausfall eines Betriebsmittels kann 
auf ein anderes, gleichartiges Betriebsmittel umge- 
schaltet werden, das sich an einem anderen Punkt 
des Rechnernetzes befindet. Ferner können der 
Verwaltung des Betriebssystem DIXOS Betriebsmit- 
tel entzogen oder bekanntgemacht werden. 


@ Die Bedienung aller in der Produktpalette enthalte- 
nen DFÜ-Pakete, wie Dialog-Prozeduren, RJE-Emu- 
lationen und X.25-Protokolle verschiedenen Typs 
und unterschiedlichen Niveaus für den Anschluß 
an andere EDV-Systeme und öffentliche Netze. 


Erst auf Grund der Ergänzung durch die zweite 
Gruppe der Funktionen wird System-PASCAL das, 
was es ist: das Werkzeug. 


Dieser Teil beinhaltet 
® ein komplexes Datenhaltungssystem (DFMS), 


® ein umfassendes Prozeß-Steuerungssystem (RE- 
ALTIME) und 


® ein System zur Unterstützung der Dialogverarbei- 
tung am Bildschirm. 


Das komplexe Datenhaltungssystem DFMS 


Seit 1975 ist im kommerziellen Einsatzbereich des 
C-BASIC-Programmiersystems der Modul DFMS 
(Disk File Management System) erprobt. Aufgrund 
seiner Stabilität und seiner funktionellen Eigenschaf- 
ten wurde er mittlerweile auch im COBOL-Program- 
miersystem eingesetzt und schließlich auch in das 
PASCAL-System einbezogen. 


Mit DFMS lassen sich problemangepaßte Daten- 
strukturen auf einem Plattenspeicher anlegen und 


See 














FIAC DIXOS DFÜ 


SPOOL 











Bild 2. Zur Zeit verfügbare Funktionsgruppen des offenen 
Programmiersystems „System-PASCAL“ 
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verwalten. Zur Verfügbarkeit der Funktionen von 
DFMS wurde ein Satz von Prozeduren geschaffen, der 
eine Kopplung zwischen PASCAL-Programm und 
dem ins Betriebssystem integrierten Modul DFMS 
darstellt, so daß 


® diese Prozeduren mit den Mitteln der Sprache auf- 
rufbar sind und 


® die Sprache selbst sowie der PASCAL-Compiler 
nicht angetastet werden. 


Die wichtigsten Merkmale des so für PASCAL-Pro- 
gramme erschlossenen Datenhaltungssystems DFMS 
sind: 


@ Es stehen unterschiedliche Zugriffsfunktionen zu 
Plattendateien zur Verfügung: 


— der direkte Zugriff über eine (logische) Satznum- 
mer, 

— der sequentielle Zugriff, 

— der indexdirekte und 

— der indexsequentielle Zugriff über Schlüssel. 


@ je Satzdatei können mehrere Schlüsseldateien an- 
gelegt werden, so daß auf die Sätze der Datei nach 
unterschiedlichen Sortierkriterien zugegriffen 
werden kann. 


® Schlüssel können ein- und mehrdeutig definiert 
werden. 


® Suchbegriffe werden mit den Vergleichsoperatoren 
<,<=,=,>= und > verknüpft. 


@ Zum Sortieren, Invertieren und Reorganisieren von 
Dateien stehen Dienstprogramme zur Verfügung. 


Mit dieser Einbettung des Datenhaltungssystems in 
das PASCAL-Programmiersystem ist komfortables 
Daten-Handling im technisch-wissenschaftlichen Be- 
reich sowie auch im Bereich der Echtzeit-Datenverar- 
beitung ermöglicht. 


Das umfassende Echtzeit-System 


Um die Funktionen zur Echtzeit-Datenverarbeitung 
in das PASCAL-System einzubeziehen, standen zwei 
alternative Vorgehensweisen zur Auswahl: Schaffung 
von Prozeduren zur Ankopplung an vorhandene 
Funktionen des Betriebssystems oder eine unmittel- 
bare Realisierung der notwendigen Funktionen in 
dem zu erstellenden Satz von Prozeduren. 


Der ersten Alternative widersprachen folgende 
Gründe: 


® Man hätte einen Verlust an Laufzeiteffizienz hin- 
nehmen müssen, was für zeitkritische Prozesse 
problematisch geworden wäre. 


© Die im Betriebssystem XOS verfügbaren Echtzeit- 


Funktionen sind auf die aus FORTRAN, PEARL 
oder BASEX kommenden Anforderungen zuge- 
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schnitten, andererseits fehlen aber wirksame und 
zugleich einfache Mechanismen zur Kommunika- 
tion und Synchronisation von Prozessen. 


Es wurde daher ein Satz von Prozeduren entwickelt, 
der keine Kopplung zum Betriebssystem darstellt, 
sondern in dem die für Echtzeit-Verarbeitung not- 
wendigen Funktionen unmittelbar vorhanden sind 
und die mit den Mitteln der Sprache PASCAL aufruf- 
bar sind. 


Dabei mußten Verfahren zur Kommunikation und 
Synchronisation paralleler Prozesse entwickelt sowie 
eine Möglichkeit des Zeitschedulings geschaffen 
werden. Die wesentlichen Eigenschaften dieses Pro- 
zeß-Systems sind folgende: 


® Die Anzahl parallel arbeitsfähiger Prozesse ist va- 
riabel. Bis zum Ausbau des Systems auf 12 Prozesse 
kann die Hardware-Struktur der 621-Systeme von 
Dietz optimal genutzt werden. 


® Zur Prozeß-Kommunikation und Prozeß-Synchro- 
nisation ist das Konzept der Nachrichten (Messa- 
ges) realisiert. Dieses Konzept ist einfach zu verste- 
hen, aber gleichzeitig auch mächtig und wirkungs- 
voll in der Anwendung: 


— Prozesse senden und empfangen Nachrichten. 
Damit kann man eine zeitliche Synchronisation 
mit gleichzeitigem Datenaustausch (Inhalt einer 
Nachricht) erreichen. 

— Prozesse bestimmen ihre Priorität selbst. 

— Prozesse sind „abgeschlossene“ PASCAL-Pro- 
gramme. 


Mit diesem ‚Message‘“-System sind die Einzelpro- 
gramme zu einem Gesamtsystem konkurrierender, 
sich gegenseitig synchronisierender und miteinander 
kommunizierender Prozesse verknüpft. 


® Einer der Prozesse kann als „Zeitprozeß‘ ausge- 
zeichnet sein, der also das Scheduling der übrigen 
Prozesse übernimmt. Auch dieser „Zeitprozeß‘ ist 
über das Message-System erreichbar und kann be- 
auftragt werden: 


— einmalig zu einem bestimmten Zeitpunkt 
— oder n-mal in einem gewählten Zeitraster Nach- 
richten an einen Prozeß zu übermitteln. 


@ Es stehen Funktionen zur Interrupt-Behandlung zur 
Verfügung, die Interrupts erkennen, die Interrupt- 
Quelle selektieren und über Daten des Typs Menge 
die Interrupt-Prozesse (auch PASCAL-Programme) 
mit den notwendigen Parametern versorgen. Die 
besonders effiziente Implementierung des Daten- 
typs Menge und der Mengenoperationen im PAS- 
CAL-System ermöglichen Reaktionszeiten für ei- 
nen Interrupt-Prozeß, die im us-Bereich liegen. 


@ Ferner stehen Funktionen zur Verfügung, die bit- 
weisen, wortweisen, binären und dezimalen Zugriff 
auf digitale und analoge Peripherie gestatten. 





Bild 3. Peripherie- und Intertask-Kommunikation der 
konkurrierenden RASCAL-Prozesse 


Mit dieser Realisierung eines Echtzeit-Systems er- 
gänzen sich 


® die sehr guten Eigenschaften der Programmierspra- 
che PASCAL und 


® die effiziente Implementierung des PASCAL-Sy- 
stems auf den Dietz-Computern und 


© das konzeptionell einfache, aber mächtige Instru- 
ment der „Messages“ der Echtzeit-Datenverarbei- 
tung 


zu einem Werkzeug, mit dem komplexe Problemlö- 
sungen für Hersteller und Anwender gleichermaßen 
kostengünstig entwickelt und gepflegt werden kön- 
nen. 


Unterstützung der Dialog-Verarbeitung 
am Bildschirm 


Mit dem Produkt „SCREEN MANAGEMENT" ist das 
PASCAL-Programmiersystem nach demselben Ver- 
fahren wie im Fall Echtzeit-System um einen Satz von 
Prozeduren ergänzt worden, der die Dialog-Verarbei- 
tung über Bildschirm unabhängig vom Gerätetyp un- 
terstützt. Die untere Ausbaustufe dieses SCREEN 
MANAGEMENT stellt dem PASCAL-Programmierer 
die Basis-Funktionen eines komfortablen Bildschirm- 
gerätes zur Verfügung. Die zweite Ausbaustufe erlaubt 
echte Dialog-Verarbeitung über Masken mit Ein- und 
Ausgabe von Daten und Plausibilitäts-Prüfungen auf 
eingegebene Daten. Ferner werden Funktionen zur 
Definition und zur Pflege von Masken bereitgestellt. 
Schon während dieser Phase kann auf ein Grundge- 
rüst zum System gehörender Masken zurückgegriffen 
werden. 





Die wesentliche Eigenschaft dieses Produktes ist die 
Führung des Bedieners in seiner Anwendung. Gerade 
in kommerziellen Anwendungssystemen bestehen 
die höchsten Anforderungen an solche dialogge- 
stützte Datenverarbeitung. Da das Produkt diesen An- 
forderungen voll entspricht, sind auch im tech- 
nisch-wissenschaftlichen Bereich vor allem im Zu- 
sammenhang mit einem komplexen Datenhaltungs- 
system ausgezeichnete Einsatzvoraussetzungen für 
dieses Produkt gegeben. 


Schlußbemerkungen 


Zusammenfassend sollen noch einmal drei Punkte 
hervorgehoben werden. 


1) Das PASCAL-System, bestehend aus PASCAL- 
Compiler und PASCAL-Laufzeitroutinen ist einge- 
bettet in ein PASCAL-Programmiersystem, das aus 
den zusätzlichen Komponenten EDITOR, BINDER 
und LADER besteht. Das PASCAL-Programmiersy- 
stem wiederum ist eingebettet in ein Gesamt-Sy- 
stem mit den Komponenten Bediensystem und Be- 
triebssystem, das die effiziente Nutzung aller Be- 
triebsmittel erlaubt und sowohl die Erstellung als 
auch die Ausführung von PASCAL-Programmen 
hervorragend unterstützt. 


2) Das PASCAL-Programmiersystem ist so realisiert, 
daß es mit den erwähnten Verfahren funktional er- 
weiterbar ist. 

Die funktionale Erweiterbarkeit des PASCAL-Pro- 
grammiersystems gestattet, zusätzliche Anwen- 
dungsbereiche zu erschließen, ohne die Sprache 
oder den Rest des Programmiersystems zu ändern. 
Damit ist ein offenes Programmiersystem geschaf- 
fen. 

Neben dem technisch-wissenschaftlichen Anwen- 
dungsbereich ist der Bereich der Echtzeit-Daten- 
verarbeitung erschlossen. Für alle Anwendungsbe- 
reiche sind umfangreiche Möglichkeiten zur Ver- 
waltung großer Datenbestände und zur Dialog-Da- 
tenverarbeitung vorhanden. 


3) System-PASCAL ist keine neue oder eine Änderung 
einer vorhandenen Sprache — mit der damit ver- 
bundenen Gefahr der Zerstörung dieser Sprache -, 
sondern eine reale Methode, PASCAL ein breites 
Anwendungsspektrum zu erschließen. 





Heinz Kitzhöfer studierte an der RWTH 
Aachen Elektrotechnik. Seine praktische 
Tätigkeit begann 1972 in der Betriebssy- 
stem-Entwicklung der Firma Dietz. Da- 
nach konzipierte und entwickelte er ein 
Rechnersystem am Rechenzentrum der 
Universität Hohenheim. 1978 wechselte er 
wieder zur Industrie über und ist jetztLLeiter 
des Supports im Bereich der Technischen 
Computer-Systeme bei der Firma Dietz. 
Telefon: (0 71 21) 82333 

Hobbys: Heimwerken, Wochenendgrund- 
stück. 

ELEKTRONIK-Leser seit 1972. 





59 


Dipl.-Ing. Eberhard Enger 


wense PÄAOLAL 


für welchen Computer? 


Seit etwa drei Jahren findet die Programmierspra- 
che PASCAL - bis dahin auf den Hochschulbereich 
beschränkt — verstärkt Anwendung im industriellen 
Bereich. Diese lange Anlaufzeit erklärt sich zum Teil 
damit, daß PASCAL-Übersetzer zunächst nur auf gro- 
Ben Rechenanlagen verfügbar waren. Die bekannten 
Fortschritte in der Mikroprozessor- und Speicher- 
technologie und der PASCAL-P-Compiler der ETH 
Zürich führten dazu, daß mittlerweile PASCAL auch 
für viele Mikrocomputer erhältlich ist. In dieser Über- 
sicht sind deshalb nur PASCAL-Systeme für Mini- 
und Mikrocomputer enthalten, Versionen für Groß- 
rechner sind schon seit längerem bekannt. 

Voraussetzung für ein bequemes Arbeiten mit PAS- 
CAL auf einem Mikrocomputer ist ein schneller Mas- 
senspeicher (Diskette, Magnetplatte u.ä.) sowie ein 
Speicher von ca. 48...64 KByte Größe. Ein übergeord- 
netes Betriebssystem muß einen Texteditor für die Be- 
arbeitung des PASCAL-Quellenprogramms, eine 
Verwaltung der Dateien, eine Steuerung der periphe- 
ren Geräte (Sichtgerät usw.) und ein Analyse-Pro- 
gramm für aufgetretene Fehler in der Ausführungs- 
phase enthalten. Fast durchgängig möglich ist das 
Einbinden von Bibliotheks-Programmen und von As- 
sembler-Unterprogrammen. 

Die Tabelle enthält eine Spalte für die Verarbeitung 
des PASCAL-Textes zu einem lauffähigen (Maschi- 


nen-) Programm. Dafür existieren zwei Möglichkei- 
ten: 

a) Übersetzung in einen sogenannten P-Code und an- 
schließender Interpretation Q > P, J; 

b) direkte Übersetzung in den Maschinen-Code und 
dann unmittelbare Ausführung Q > M. 


Im Fall b) gibt es eine Variante mit dem Assembler- 
Code oder, benannt nach der Programmiersprache GC, 
mit der C-Code-Zwischenstufe. Die Methode a) führt 
in der Regel zu einer längeren Laufzeit, benötigt aber 
weniger Speicherplatz als b). Ein Optimum ist sicher 
erreicht, wenn der P-Code direkt durch einen mikro- 
programmierten Prozessor interpretiert wird. Dies ge- 
schieht z. B. bei der WD 9000 von Western Digital und 
bei der MK 16 von Mikros Systems. 


Neben diesen Fortschritten, die zu einer schnelleren 
Bearbeitung von Programmen führen, sind die An- 
wender jetzt besonders an nützlichen und fertigen 
Programmen interessiert. Einige Hersteller bieten be- 
reits hier etwas an (z. B. zur Textverarbeitung). 


Weil die internationale Standardisierung der Pro- 
grammiersprache PASCAL noch nicht abgeschlossen 
ist, unterscheiden sich die aufgeführten PASCAL- 
Übersetzer. Nach wie vor wird jedoch das Buch PAS- 
CAL, User Manual and Report von K. Jensen und 
N. Wirth (1978) als geltender Standard akzeptiert. 


Übersicht PASCAL-Versionen verschiedener Anbieter 








Advanced 
Micro Devices 


PASCAL AmsSYS 8/8 


Alpha Micro 






AMI Microsystems | AMI PASCAL 


EXOReciser, MDC 





Apple Pascal 
Apple Pascal 


Apple Computer 














PASCAL/M 
PASCAL/Z 
PASCAL PLUS 


BSP Thomas Krug CP/M-kompatibel 
CP/M-kompatibel 


CP/M-kompatibel 






Columbia 
Data Products 


60 


AmZ8000, Z80 Q>C>M CP/M 
Am9080A/8080A 
Am8085A 
CP/M, 
UCSD-POS?) 


8002A (Tektronix), 


56800, Z80 





Apple II 6502 Q>P;1 UCSD-POS 
Apple III 6502 
















S9900, PDP-11 
S2200 























CP/M, 
USCD-POS 











Commodore 
Compucorp 


Creative 
Daten Systeme 


Data General 


Diehl 
Datensysteme (TA) 


PASCAL 


PASCAL 


MP/PASCAL 


PASCAL-P4 





Data-General- 
Rechner 


MP/100, 
MP/200, 
ECLIPSE 


alphatronic 
dds 2°, 3°* 


microNOVA 


8085 
16 Bit DOS 20 


Q>M 


Q>M 
























































Dietz System-Pascal DIETZ 621 Q>M 
Computer-Systeme 
Digital Equipment VAX-11 
PDP-11, LSI-11 
Exidy UCSD-Pascal Sorcerer Z80 
FMG Corp. PASCAL/MT CP/M-kompatibel, 8080, 8085, Z80 Q>M 
PASCAL/M TRS-80 8080, 8085, Z80 Q>P;I 
FELTRON PASCAL/M FELTRON 5080 8085 Q>Pp,I 
Elektronik PASCAL/MT FELTRON 5080 8085 Q>M 
Hewlett Packard Pascal/1000 HP 1000 16 Bit Q>A>M 
Pascal/64000 HP 64000 (8080, 8085 Q>M 
Z80 u.a.) 
Intel PASCAL-80 MDS-800, Intellec II| 8080, 8085 Q>P,I 
PASCAL-86 221, 231, 241 8086 Q>M 
EFT ITT 2020 6502 
Kontron PASCAL PSI y80 Z80A 
Lucidata P-6800 FLEX- M6800, 6809 
. kompatibel 
T 
Mikros Systems Mk-16 16 Bit Q>P 
Motorola M6809 PASCALI |EXORciser II MC6809 Q>P>M 
PASCAL EXORmacs MC68000 Q>M 
MPDV UCSD-Pascal M2000-D Z80 Q>P,1I 
PASCAL/MT M2000-D Z80 Q>M 
OHIO Scientific UCSD-Pascal Challenger Re. 0 Seen 























OMSI OMSI PASCAL [DEC-Rechner 
v1.2 
Ramtek UCSD-Pascal Modell 6114 
rowi UCSD-Pascal microwi 65 
SALOTA UCSD-Pascal MFC 512 
Siemens PASCAL 7000 
(BS2000) 6610 
6620 
6640 
PASCAL 300 300 
Sorcim PASCAL/M 





Z80A 


32 Bit 

8 Bit 
16 Bit 
16 Bit 
16 Bit 


8080, 8085 
Z80 








Q>P,I 


Q>B,.1 


Q>M 
Q>M 
Q>B1 
Q>M 
Q>M 


Q>M 





ZEBRA 


AOS, MP/OS 


MP/OS, AOS 


Aufrufe 
von Betriebs- 
funktionen 


(4. Quartal 1980) 


TSOS Echtzeit- 


verarbeitung 


Vertrieb durch 
DECUS 


CP/M 
CP/M 


MP/M 
MP/M 


RTE 
_ PASCAL-Compiler 
für den Ziel- 
prozessor 


ISIS II 
ISIS 


(4. Quartal 1980) 
(3. Quartal 1980) 
KOS 


FLEX 


MDOS 
VERSADOS 


CP/M 
CP/M 


(3. Quartal) 


RT-11, RSX, 
IAS, RSTS 


RAMOS Farbgrafik 


MONA 


SALDOS 


BS2000 
BS1 
BS2 
BS3 
ORG 





CP/M 
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Spezial-Electronic UCSD-Pascal PASCAL P-CODE 16 Bit UCSD-POS direkte Aus- 
MASCHINE (WD9000 von führung des 
(SE-90) Western Digital) P-Codes 
SWT UCSD-PASCAL | SWT-6809 6809 Q>P,I UCSD-POS 
Tandy UCSD-Pascal, TRS-80 Z80 siehe: FMG 
PASCAL/MT INTERFACE 
AGE Verlagsges. 
Texas Instruments Mikroprozessor | TMS 9900 FS990/AMPL, Q>P>M TX5 Echtzeitver- 
Pascal (MPP) DS990 arbeitung 
TI PASCAL TMS 9900 x NO DX10, 
TX990 
RX990 
Western UCSD-Pascal WD 90 16 Bit Q>P UCSD-POS direkte Aus- 
Digital Corp. (PASCAL-MICRO- (WD9000) führung des 
ENGINE) P-Codes 
Zilog Z80 PASCAL MCZ, ZDS Z80 ArPrl RIO 
Z80 PASCAL Z8000 (3.Quartal 1980) 
') Erläuterung der Zeichen: Q = Pascal-Quellprogramm: P = P-CGode: M Maschinen-Code; A = Assembler-Code: C = G-Code; I = P-Code-Interpreter 
*) UGCSD-POS: UCSD PASGAL OPERATING SYSTEM (UCSD ist die Abkürzung für: University of California. San Diego) 
Die Tabellen wurden aufgrund von Unterlagen der Hersteller bzw. Anbieter zusammengestellt und erheben keinen Anspruch auf Vollständigkeit. 





Anschriften der Firmen (Vertrieb) 


Advanced Micro Devices GmbH, Rosenheimer Str. 139, 8000 
München 80, Tel. (0 89) 40 19 76 

Alpha Micro (digitronic computersysteme GmbH, Am Kamp 17. 
2081 Holm (Holstein), Tel. (0 41 03) 8 86 72) 

AMI (mtc mikrotec gmbh, Rosenbergstr. 94, 7000 Stuttgart 1, Tel. 
(07 11) 61 10 36) 

Apple Computer Marketing Gesellschaft mbH, Überseering 25, 
2000 Hamburg 60, Tel. (0 40) 6 30 80 45 

BSP Thomas Krug EDV-Beratung, Postf. 11-44, 8400 Regens- 
burg, Tel. (09 41) 939 45 

Columbia Data Products (Ziegler-Instruments GmbH & Co. KG, 
Postfach 510, 4050 Mönchengladbach, Tel. (0 21 66) 8 00 91) 

Commodore GmbH, Frankfurter Str. 171-175, 6078 Neu-Isenburg, 
Tel. (0 61 02) 80 03 

Compucorp (Beagrand Datentechnik GmbH & Co., Berliner Str. 
2-6, 6056 Heusenstamm, Tel. (0 61 04) 33 13) 

Creative Daten Systeme GmbH, Maria Eich Str. 11,8032 Lochham, 
Tel. (0 89) 8 54 51 20 

Data General (Alfred Neye Enatechnik GmbH, Schillerstr. 14, 2085 
Quickborn/Hamburg, Tel. (0 41 06) 61 21) 

Diehl Datensysteme GmbH dds, Veilhofstr. 6, 8500 Nürnberg, Tel. 
(09 11) 530 51 

Dietz Computer Systeme, Solinger Str. 9, 4330 Mülheim/Ruhr, Tel. 
(02 08) 44 34-1 

Digital Equipment GmbH, Wallensteinplatz 2, 8000 München 40, 
Tel. (0 89) 3 50 31 

Exidy (Computershop GmbH, Unterortsr. 10, 6236 Eschborn, Tel. 
(0 61 96) 4 69 33) 


Feltron Elektronik GmbH & Co. Vertriebs KG, Auf dem Schellerod 
22, 5210 Troisdorf-Spich, Tel. (0 22 41) 4 10.04 

FMG Corp. (INTERFACE AGE Verlagsges. mbH, Dahlienstr. 4, 
8011 Vaterstetten, Tel. (0 81 06) 73 96) 

Hewlett-Packard GmbH, Berner Str. 117, 6000 Frankfurt 56. Tel. 
(06 11) 500 41 

Intel Semiconductor GmbH, Seidlstr. 27, 8000 München 2, Tel. 
(0 89) 5 38 91 
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ITT Standard Elektrik Lorenz AG, Hellmuth-Hirth-Str. 42, 7000 


Stuttgart 40, Tel. (07 11) 821-1 


Kontron Elektronik GmbH, Postfach 1251, 8057 Eching, Tel. (0 89) 


31901 (CSC GmbH, Straßbergerstr. 12, 8000 München 40) 


Lucidata (ELTEC Elektronik GmbH, Neubrunnenstr. 10, 6500 


Mainz, Tel. (0 61 31) 3 13 36) 


Motorola GmbH, Münchner Str. 18, 8043 Unterföhring, Tel. (0 89) 


924 81 


MPDV, 6957 Ilztal-Dallau, Tel. (0 62 61) 1 44 48 
OHIO Scientific (Balü Electronic, Burchardplatz 1, 2000 Hamburg 


1, Tel. (0 40) 33 09 71 und Digitus Datentechnik, Am Schloßpark 
12, 8035 Gauting, Tel. (0 89) 8 50 68 66) 


OMSI (AC-Copy, Kurbrunnenstr. 30, 5100 Aachen, Tel. (02 41) 


50 60 96 und PCS, Pfälzer-Wald-Str. 36, 8000 München 90, Tel. 
(0 89) 68 10 21) 


RAMTEC (Logotec GmbH, Düsseldorf Str. 13, 8000 München 40, 


Tel. (0 89) 300 86 37 und WDV GmbH, Zeppelinstr. 11, 8046 
Garching b. München, Tel. (0 89) 3 20 21 46) 


rowi Rothdach und Wiesenhabart, Zusamstr. 8, 8900 Augsburg, 


Tel. (08 21) 7 30 48 (bitronic GmbH, Einsteinstr. 127, 8000 Mün- 
chen 80, Tel. (0 89) 4 70 20 98) 


SALOTA GmbH & Co. KG, Raabstr. 24, 8500 Nürnberg, Tel. 


(09 11) 321 77 


Siemens AG, ZVW 104, Postfach 103, 8000 München 1 
Spezial-Electronic KG, Hermann-Lingg-Str. 16, 8000 München 2, 


Tel. (0 89) 53 0387 


SWT (Digicomp AG, Werdstr. 38, CH-8004 Zürich, Tel. (01) 
2417909) 


TANDY Radio Shack, Luisenstr. 98, 4000 Düsseldorf, Tel. (02 11) 


37 0529 


Texas Instruments Deutschland GmbH, Haggertystr. 1, 8050 Frei- 


sing, Tel. (0 81 61) 8 01 


Western Digital (Electronic 2000, Neumarkter Str. 75. 8000 Mün- 


chen 80. Tel. (0 89) 43 40 61) 


Zilog GmbH, Zugspitzstraße 4, 8011 Vaterstetten, Tel. (0 81 06) 


40 35 
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Beer: 


Siemens kündigt PASCAL-Compiler 


für die Systeme 300 an 


Nachdem für die Minicomputer der 
Systeme 300 bereits BASIC-, CO- 
BOL-, FORTRAN- und PEARL- 
Compiler existieren, wird Siemens 
im vierten Quartal dieses Jahres 
auch noch einen PASCAL-Compi- 
ler anbieten. Mit dieser umfassen- 
den Software-Unterstützung will 
man den unterschiedlichen Anfor- 
derungen gerecht werden und 
auch komplexe Anwendungsfälle 
abdecken, wie z. B. die schnelle 
Reaktion auf externe Signale bei 
dynamischer Systemumgebung, 


die Steuerung paralleler Vorgänge 
oder die Koordinierung des Ein-/ 
Ausgabe-Verkehrs bei umfangrei- 
chen Peripherie-Konfigurationen. 
Jede der angebotenen Compiler- 
sprachen bietet auf die speziellen 
Belange abgestimmte Eigenschaf- 
ten, wobei PASCAL 300 die Tech- 
nik der strukturierten Programmie- 
rung wirkungsvoll unterstützt und 
insbesondere Hilfestellung für die 
Ein-/Ausgabe und den Test gibt. 

| Hersteller: Siemens AG, ZVW 
104, Postf. 103, 8000 München 1. 


System-PASCAL deckt großen 


Anwendungsbereich ab 


Als Software-Werkzeug zur Lö- 
sung komplexer DV-Probleme 
stellt die Firma Dietz System- 
PASCAL vor. Dieses Instrument 
ermöglicht es, umfangreiche An- 
wendungen in einem breitgefä- 
cherten Anwendungsbereich — von 
der Prozeßautomation bis zur 
Kommunikationstechnik — effizient 
und mit überschaubarem Aufwand 
zu realisieren. Nach Meinung der 
Firma stellt es einen weiteren 
Schritt zum universellen Einsatz 


der Sprache PASCAL dar. Ferner 
bietet Dietz für den technisch-wis- 
senschaftlichen Bereich unter an- 
derem das Programmpaket MINI- 
PLAN, ein Planungsinstrument für 
Konstruktion und Entwicklung, und 
ein interaktives CAD-System an. 
Letzteres stammt vom Dietz-Toch- 
terunternehmen Technovision. 

U) Hersteller: Dietz Computer Sy- 
steme, Heinrich Dietz, Solinger Str. 
9, 4330 Mülheim, Tel. (02 08) 
44 34-1. 


Mikroprozessor PASCAL 


Texas Instruments bietet ein Soft- 
ware-Paket an, das den Einsatz 
der höheren Programmiersprache 
PASCAL für Mikroprozessorent- 
wicklungen auf dem Entwicklungs- 
system AMPL bzw. FS 990/4 er- 
möglicht. Mikroprozessor PASCAL 
(MPP) enthält neben einem Com- 
piler ein ganzes Paket an Softwa- 
re-Unterstützung. So steht neben 
dem bildschirmorientierten Editor 
mit „Syntax-Check“ der auf PAS- 
CAL-Sprachebene arbeitende De- 
bugger zur Verfügung, der u.a. das 
Setzen von Breakpoints mit an- 
schließender Ausgabe aller inter- 
essierenden Programmdaten er- 
möglicht. Weitere Debug-Routinen 
erlauben den Echtzeittest unter 


Zuhilfenahme aller Eigenschaften 
des AMPL. Der Run-Time-Support 
beinhaltet zwei Versionen: die eine 
zur interpretativen, die andere zur 
direkten Abarbeitung der erstellten 
Software im Anwendersystem. 
Damit hat der Anwender die Mög- 
lichkeit, sein PASCAL-Programm 
wahlweise speicherplatzoptimal 
oder zeitoptimal abzuarbeiten. Der 
Konfigurator erlaubt es, für die 
spezielle Anwendung nicht benö- 
tige Routinen aus dem Run- 
Time-Support zu eliminieren und 
damit ein minimales Lademodul 
zusammenzustellen. 

Vertrieb: Texas Instruments 
GmbH, Haggertystr. 1, 8050 Frei- 
sing, Tel. (0 81 61) 80-1. 


PASCAL für 8-Bit-Prozessor 


Die Firma Motorola bietet zu ihren 
Entwicklungssystemen mit dem 
Mikroprozessor MC6809 einen 
PASCAL-Interpreter (M6809PAS- 
LI) an. Ein lauffähiges System be- 
nötigt eine Floppy-Disk mit dem 
Betriebssystem MDOS, ein Daten- 
sichtgerät und 56 KByte RAM. Das 
M6809-PASCAL hält sich erfreu- 
licherweise eng an den Norment- 
wurf der Sprache. Es bietet u. a. 
folgendes an Erweiterungen: 
nicht-dezimale Darstellung ganzer 
Zahlen, eine exit-Anweisung, eine 
otherwise-Klausel in der case-An- 
weisung, Operationen auf Zei- 


chenketten. In ein übersetztes 
PASCAL-Programm lassen sich 
sowohl Assembler-Routinen als 
auch andere PASCAL-Unterpro- 
gramme einbinden. Die bei der er- 
sten Auslieferung noch fehlenden 
Sprachelemente (Datentyp „real“, 
gepackte Datenstrukturen und die 
formalen Prozedur- und Funk- 
tionsparameter) sowie Erweiterun- 
gen für dynamische Feldgrenzen, 
Echtzeit-Verarbeitung u. a. sind für 
die nächste Version angekündigt. 
[ Vertrieb: Motorola GmbH, G.-B. 
Halbleiter, Pf. 1229, 8043 Unter- 
föhring, Tel. (0 89) 92 48-1. 

















DAS SOFTWARE 





WERKZEUG 


OMSI PASCAL V 1.2 für alle DEC PDP 11 - LSI 11 
und VAX RSX-11, RT-11, IAS und RSTS/E. 


OMSI PASCAL VL2 


Der OMSI- PASCAL- Comp Silerist derStand: ırdfüralle PDP-M undLSi-11: Mundl£ Sy: Systeme. 


Ein umfassendes Software-Werkzeug 
Das PASGAL VI2.System: ist: das Warkzeug, das 
Phasender Software-Entwicklung bendtigen. 








e Vollständiges Standard PASCAL 
e FORTRAN und MACGRO Interface 
e In ine MACRO Code 

e Schneller One-Pass-Compiler 

e erzeugt Assembler Code 


Debugger 


Sis fir alte 






DESIGN 


V1.2 Pascal Compiler ; 5 
u PasEaEVr2 Dielet ainen zuverlässigen Gomgiler, der sehr 
schneillabflähtgen Code erzeug! 





L_COMPILE | 














v1.2 Symbalischer Debugger 
u ae arbeitet a Quell-Programm e Arbeitet im PASCAL-Quellprogramm 
bene. Er stelt’Bieak Points ung die Überwachung von vanab- r T 
ion sowie andere attraktive Eigenschaften. bereit, e Setzen von mehreren Breakpoints möglich 
V1.2 Profiter e Überwachung von Variablen 
MEASURE |- + er Pohler ermittelt die Anzahl der Durchläufe Ihr die einzelnen e Programmlaufstatistik 
i FE z Source-Siäatemenis und erlaubt dem Anwender damit die Opti- 
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| MAINTAIN 


FRELUNG:SeIRer Prögramme 

nn auf atle standard PDP-11 Betriebs-Systeme 

Pascal v2 Quellcode ßt sich au RSX-1JAS.RTI und 

BSTS/E übertragen, Das erzeugte Programm lauft auf jener 
POP-H van der tsrt His zur VAR, 


OMSI PASCAL V 1.2 ist ein Produkt der Oregon Software 
600 mal installiert in 22 Ländern, Anwendung in Industrie, Lehre 
und Forschung und Verwaltung. 








PR; 


Periphere 


Computer Systeme GmbH 


Weitere Informationen und Verkauf: 





| BIERDSSS Ingenieurbüro für 
BEAT ETgelziiälgtekelulelg 
D-5100 Aachen 
Kurbrunnenstraße 30 
Telefon 0241/506096 
Telex 0832368 
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PASCAL für DEC-Rechner 


Die Firma AC Copy bietet einen 
PASCAL-Compiler für die Rech- 
nerserien LSI-11, PDP-11 und 
VAX von DEC an. Diese PAS- 
CAL-Version mit der Bezeichnung 
Omsi wurde von der Oregon Mini- 
computer Software entwickelt. Seit 
1975 wurde dieses PASCAL etwa 
600mal installiert. Gegenüber dem 
Standard-PASCAL weist Omsi- 
PASCAL zahlreiche insbesondere 
für die Prozeßsteuerung nützliche 
Erweiterungen auf. Es ist bei- 
spielsweise möglich, absolute 
Speicheradressen anzusprechen 
oder im PASCAL-Programm 
Assemblerbefehle einzufügen. 
Omsi-PASCAL erzeugt Assem- 
blercode, der dann in den Objekt- 
code übersetzt wird. Die Pro- 
gramme benötigen zur Laufzeit 


außer dem normalen Betriebssy- 
stem keine weitere Unterstützung. 
Omsi-PASCAL ist für die Betriebs- 
systeme RT-11, RSX, IAS und 
RSTS von DEC verfügbar. Beson- 
ders hilfreich ist der symbolische 
Debugger, der mit dem PASCAL- 
Quellprogramm arbeitet. Dadurch 
kann man Variable mit ihrem Na- 
men ansprechen und untersuchen 
oder verändern, im Quellprogramm 
mehrere Stop-Punkte setzen, das 
Programm schrittweise ablaufen 
lassen usw. Der symbolische De- 
bugger und weitere Programme 
sowie ein Listenformatierer’ gehö- 
ren zum Standardlieferumfang. 

U) Vertrieb: AC-Copy Ingenieur- 
büro für Datenverarbeitung GmbH, 
Kurbrunnenstr. 30, 5100 Aachen, 
Tel. (02 41) 50 60 96. 


PASCAL-Compiler für PCS-SII 


Für ihr Package-System PCS-SII, 
das auf dem LSI-11 basiert, hat die 
Firma PCS jetzt einen PASCAL- 
Compiler im Vertriebsprogramm. 
Dieser sowohl von RT-11 als auch 
von RSX-11 unterstützte Compiler 
eignet sich für den Einsatz in tech- 
nischen und in kommerziellen An- 
wendungen. Da er nach dem Com- 


pilierungs-Vorgang zusätzlich eine 
Code-Optimierung durchführt, wird 
die Laufzeit auf ein Minimum her- 
abgesetzt und der Speicherplatz 
optimal ausgenutzt. 

U Vertrieb: PCS GmbH, Periphere 
Computer Systeme, Pfälzer- 
waldstr. 36, 8000 München 90, Tel. 
(0 89) 68 10 21. 


UCSD-PASCAL für SWT-6809 


Das Mikrocomputersystem 
SWT-6809 von Southwest Techni- 
cal kann mit dem Softwarepaket 
von Digicomp jetzt auch als PAS- 
CAL-Rechner betrieben werden. 
Voraussetzung dazu ist der Aus- 
bau des Systems auf 56-K-RAM 
und der Anschluß einer 5- oder 8- 
Zoll-Floppy-Disk. Wegen der 
Größe des Softwarepakets ist eine 
8-Zoll-Floppy vorzuziehen. Die im 
SWT-System lieferbare 16-MBy- 
te-Hard-Disk wird ebenfalls voll un- 


terstützt. Das PASCAL-System ist 
die UCSD-Originalversion. Es um- 
faßt einen schnellen One-Pass- 
Compiler und einen P-Code-Inter- 
preter. Das Linken von P-Code und 
6809-Assemblerroutinen ist mög- 
lich. Ein PASCAL-Compiler, der di- 
rekt 6809-Maschinencode erzeugt, 
ist in Vorbereitung. 


L] Vertrieb: Digicomp AG, Werdstr. 
36, CH-8004 Zürich, Tel. (01) 
2417909. 


Mikrocomputer bietet komfortables PASCAL 


Das von Bitronic vertriebene Mi- 
krocomputersystem microwi 65 
basiert auf der CPU 6502. Es bietet 
14 Steckplätze für Europakarten. 
Beispielsweise läßt sich dort die 
8-K-RAM-Karte einstecken, deren 
Adreßbereich sich frei wählen läßt. 
Das System besitzt eine V-24- 
bzw. 20-mA-Schnittstelle sowie 
eine Parallelschnittstelle mit 16 Bit 
für Druckeranschluß (incl. Softwa- 
re). Es werden 24 Zeilen mit jeweils 
40 oder 80 Zeichen dargestellt, 


wobei Groß- und Kleinschreibung 
sowie 128 Grafikzeichen möglich 
sind. Die Minidiskette speichert 91 
KByte. Das System ist mit einem 
Doppellaufwerk erweiterbar. An 
Software bietet das System einen 
Editor, Assembler, UCSD-PAS- 
CAL und BASIC. Mit PASCAL ist 
das System ab 12 995.- DM erhält- 
lich. 

[] Vertrieb: Bitronic GmbH, Ein- 
steinstr. 127, 8000 München 80. 
Tel. (0 89) 4 70 20 98. 


Softwarepaket PASCAL-80 


Für den Einsatz in dem Intellec-Mi- 
krocomputer-Entwicklungssystem 
bietet Intel ein Softwarepaket 
PASCAL-80 an. Es besieht aus ei- 
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nem Compiler, Pseudocode-Inter- 
preter und einem Demonstrations- 
programm auf Diskette, einem An- 
wender-Handbuch undder zweiten 


Auflage des Buches „PASCAL 


user manual and report“ von Jen- 
sen/Wirth. PASCAL-80 läuft auf 
dem Intellec-Serie-Il und MDS-800 
unter dem ISIS-Il-Betriebssystem. 





Gegenüber dem akademisch 
orientierten Standard-PASCAL ist 
diese Version für kommerzielle und 
industrielle Anwendungen erwei- 
tert. So wurden drei neue Datenar- 
ten eingeführt - String, Untyped Fi- 
les und Interactive Files — sowie 28 
Vorgänge und Funktionen. Da- 
durch müssen Variable für häufig 
benutzte Vorgänge und Funktio- 
nen nicht einzeln definiert werden. 
Zusätzlich besteht die Möglichkeit 
der Überwachung der Programm- 


ausführung und der Fehlerdiagno- 
se. PASCAL-80 wurde exklusiv für 
Intel von der Queue Computer 
Corporation entwickelt und ist unter 
der Produktbezeichnung MDS-381 
zu beziehen. 


[1 Vertrieb: Intel Semiconductor 
GmbH, Seidistr. 27, 8000 München 
2, Tel. (0 89) 53 89-1. 


Auch für TRS-80 
gibt es PASCAL 


Ein breites Software-Programm für 
TRS-80-Anwender vertreibt in Eu- 
ropa die Interface-Age Verlags 
GmbH. Es handelt sich unter ande- 
rem um FORTRAN-80, UCSD- 
PASCAL, TRS/COBOL-80, Text- 
Editor, Screen-Editor usw. Die Ma- 
nuals dazu sind auch einzeln er- 
hältlich. Ein Katalog mit näheren 
Beschreibungen ist verfügbar. 


| Vertrieb: Interface Age Verlags 
GmbH, Dahlienstr. 4, 8011 Vater- 
stetten, Tel. (0 81 06) 73 96. 


An Introduction to Programming and Problem 


Solving with PASCAL 


Von G. Michael Schneider, Ste- 
ven W. Weingart und David M. 
Perlman. 394 Seiten, 115 Bilder. 
INTERFACE AGE, Vaterstetten. 
ISBN 0-471-04431-8, DM 39,—. 


Obwohl bereits einige Lehrbücher 
für das Programmieren mit PAS- 
CAL in deutscher Sprache vorlie- 
gen, gibt es gute Gründe, dieses 
amerikanische Lehrbuch zu emp- 
fehlen. Es bietet eine Einführung in 
das Programmieren in all seinen 
Aspekten: Problem-Definition, Su- 
chen der Lösung, Auswahl des Al- 
gorithmus, Codieren des Pro- 
gramms, Austesten und Fehlersu- 
che, Dokumentation und Wartung. 
Die Zielsetzung der Verfasser, ei- 
nen guten Programmierstil an 
Hand von PASCAL einzuüben, ist 
erreicht worden. Dies geschieht 
durch eine ausführliche Erläute- 
rung der grundlegenden Konzepte 
von PASCAL, durch die Bespre- 
chung häufig vorkommender Pro- 
grammierfehler und durch Hin- 
weise auf das Schreiben von ver- 
stehbaren Programmen. 


Hervorgegangen aus einem ein- 
führenden Programmierkurs für 
Studenten aller Fakultäten, erfor- 
dert das Lehrbuch keine speziellen 
Vorkenntnisse. Sieht man von der 
kleinen Hürde des Englischen ab, 
so ist es besonders für Anfänger im 
Programmieren — auch im Selbst- 
studium — geeignet. Für den Fort- 
geschrittenen bietet es eine voll- 
ständige Beschreibung von PAS- 
CAL und viele nützliche Hinweise 
zum Programmieren selbst. Ab- 
schließend sei bemerkt, daß das 
beschriebene PASCAL mit dem 


Standard von Jensen/Wirth über- 
einstimmt. EE 


PASCAL für Anfänger 


Programmieren für Anfänger. 
Dritte Auflage. Von Helmut 
Schauer, 175 Seiten, zahlreiche 
Programmlisten. R. Oldenbourg 
Verlag, München. 

ISBN 3-486-20233-2, DM 21,80. 


Diese Einführung in die Program- 
miertechnik soll einen Anfänger mit 
dem Problemkreis des Software- 
entwicklers vertraut machen. Das 
logische und algorithmische Denk- 
vermögen des Lesers wird ge- 
schult, so daß er in der Lage ist, 
selbst Programme zu schreiben. 

Der inhaltliche Aufbau des Buches 
ist sehr induktiv, es wird von kon- 
kreten Beispielen ausgehend auf 
allgemeine Sachverhalte ge- 
schlossen. Die Programmbeispiele 
sind frei von unnötigem Ballast, 
was ein besonderer Vorzug der 
Programmiersprache PASCAL ist. 
Die Prinzipien jedes Kapitels wer- 
den an zahlreichen Beispielen illu- 
striert. Für jene Leser, die prakti- 
sche Programmiererfahrung ge- 
winnen wollen, wird eine Samm- 
lung zusätzlicher Übungsaufgaben 
mit den dazugehörigen Lösungen 
in einem eigenen Band PAS- 
CAL-Übungen zusammengestellt. 
Der letzte Abschnitt, mit der Über- 
schrift Das Buch enthält eine Zu- 
sammenfassung der wichtigsten 
syntaktischen Regeln von PAS- 
CAL. Das erleichtert das Nach- 
schlagen in Zweifelsfällen sowie 
das Erlernen dieser Regeln. May 


Blektroniks 





„„„die Sicherheit 
besser informiert zu sein 


Die Elektronik revolutioniert beinahe jede 
Branche und jedes Arbeitsgebiet. Daraus er- 
gibt sich ein gewaltiger Informationsfluß, der 
nur mit viel Sachkenntnis und Umsicht bewäl- 
tigt werden kann. Diese Auswahl der relevan- 
en Informationen bietet Ihnen die Fachzeit- 
schrift ELEKTRONIK, damit Sie immer zum 
richtigen Zeitpunkt über alles Wesentliche in- 
formiert sind. Eigene Korrespondenten in den 
USA und Japan garantieren eine stets aktuelle 
Berichterstattung auch von diesen Märkten 
Exklusive Copyright-Abkommen mit führenden 
amerikanischen Fachzeitschriften ermöglichen 
die Übernahme von Aufsätzen über neueste 
Technologien in deutscher Sprache 








Die ELEKTRONIK berichtet über: Meß-, Steuer- 


und Regelungstechnik, Analog- und Digital- 
technik sowie Datentechnik, mit Anwendungen 
in Forschung und Industrie, Maschinen- 

und Gerätebau, Verkehrswesen und Medi- 

zin. Industrielle Prozeßautomatisierung, Ferti- 
gungsmethoden für die Elektronik-Industrie. 
Bauelemente einschließlich neuer Technolo- 
gien und Anwendungen, Schaltungstechnik 
und -praxis, Nachrichtentechnik, Optoelektro- 
nik. Mikroprozessor und Mikrocomputer wer- 
den in der ELEKTRONIK besonders intensiv 
betreut. Auch die Programmierung (software) 
wird eingehend behandelt. ELEKTRONIK-Bei- 
träge sind praxisnah geschrieben und damit 
bei den täglich anfallenden Problemen direkt 
verwertbar. Sie vermitteln die oft teuer be- 


Bitte bestellen Sie 


mit nebenstehender Bestellkarte 








Fachzeitschrif 
rift für Ongewandte Elektronik und Datentechnik 


REPORT: 
Meßdat ‚ Leistungs-Thyristoren 
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gsanl _ 
Im Westen Er age mit IEC-Bus 
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zahlte Erfahrung anerkannter Experten und 
bringen Grundlagen des Ingenieurwissens in 
Form der Elektronik-Arbeitsblätter, marktge- 
rechte Neuheitenberichte im Elektronik-Markt 
und aktuelle Branchen-Nachrichten im Elek- 
tronik-Express. 


Zwei Lexikon-Karten und zwei Normen-Karten 
pro Heft bereichern laufend den technischen 
Wortschatz bzw. ermöglichen den Aufbau ei- 
ner Normenkartei. Der Rubrik ELEKTRONIK- 
Notizen kann man mit einem Blıck das Neue- 
ste aus Forschung und Anwendung der Elek- 
tronik entnehmen. Eine umfassende interna- 
tionale Literaturschau vermittelt in jedem Heft 
den unerläßlichen ‚Blick über den Zaun“ 


Die ELEKTRONIK erscheint 25mal im Jahr 
alle 14 Tage am Donnerstag. 

Das Einzelheft kostet DM 4.80, 

das Jahresabonnement DM 94.- im Inland, 
DM 104.- im Ausland 

(ab 1. 1.81 DM 104.40 bzw. DM 111.60) 





8. Februar 1979 
4.20 DM 


amm für uC-gesteuerte Längen- 
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Sie und wir haben lange gewartet. Doch es hat sich gelohnt! Denn jetzt 
bekommen Sie die zweite Generation: mit integrierten Floppy-Laufwerken, 
einfache oder doppelte Schreibdichte. 


e PROZESSOR: PASCAL-P-CODE-CHIP-SATZ ® SOFTWARE: UCSD-Betrtebssystem III. 0 
© SPEICHER: 64 kByte RAM 2 ee 
e SCHNITTSTELLEN: 2 serielle V24-Schnittstellen - File-Handler 
(synchron/asynchron) - PASCAL-Compiler 
1 paralleles E/A-TOR (8 BIT) - Linker 
- Library 


- und mit diversen Utility-Programmen. 


Jetzt können Sie auf den PASCAL-Zug aufspringen! Sofort! 


Mit der SE-%/S für DM 11.290,- (mit einseitigen Floppy-Disk-Drives) 
oder der SE-90/D für DM 12.500,- (mit doppelseitigen Floppy-Disk-Drives) 


SE Spezial-Electronic KG 


3062 Bückebürg/Hannover, Kreuzbreite 14, Tel. 05722 1011-15, Telex 971624 spez d 
8000 München 2, Hermann-Lingg-Straße 16, Tel. 089530387, Telex 5212176 spez d 
Außenbüro: 7090 Ellwangen, Magdeburger Str. 15, Tel. 0 79 61-4047, Telex 74 712 


